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REVISIONS 



This publication supersedes the SDS 920 FORTRAN II 4K Basic System Technical 
Manual, SDS 900065B. The following corrections are included: 

Corrections to FORTRAN Loader (G) to make Version H 
Corrections to FORTRAN Run-Time (G) to make Version H 

The following listings replace those contained in the previous manual: 

Subroutine Page 

EXP 3-12 through 3-17 

BINBCD (236) 3-79 through 3-85 



CONTENTS 



PART I. Compiler 



The Compiler accepts source programs from 
paper tape and produces object programs which 
can be run on any 900 Series Coraputer. Ob- 
ject prograins are punched on paper tape, and 
source programs are listed on the typewriter. 



PART II. Loader 



The Loader loads programs compiled by any 
900 Series Compiler, as well as library sub- 
routines and subroutines assembled by SYMBOL. 
The same loader is used in all 900 Series 
FORTRAN systems; it determines on which 
machine it is operating and loads accordingly. 



PART III. Library 



The Library contains the standard mathematical 
functions and various system subroutines which 
can be called, implicitly or explicitly, by an 
object program. Those routines which will work 
on any 900 Series Computer are marked "910/ 
920". Those whose symbolic listing is the same 
but must be assembled separately for the differ- 
ent computers are marked "920/910S". Those 
which function only on the 920 or 930 Computers 
are marked "920". 



PART IV. Run -Time 
System 



The Run-Tirae System contains the floating-point 
arithmetic subroutines, various Programmed 
Operators used by object programs, and the FOR- 
MAT scanning routine. 






PART I. COMPILER 



u 7. on 



06660 
00030 
_C_.Q6.-0.i?6_bO_ 
C 06 00030 



C (? R i< £ CTIQN S TO F&r;Tf<AN CQ|VlPIL£R (F) 



TO hAK£ VERSION G 



MAY It 196^ 



d L6650 eoOL 6650 
9 L30 BOOL 30 
J_Q PTAP L6650 



11 PTAP L30 

12 * FAST LISTING PATCH 

13 * LIST SPi^&G TITL£ 



FOR F COMPILtR 



00202 
U0203 

00166 
U0 167 
0017C_ 
UU171 

03 IX 
312 
U0313 



C 0-^ 00166 M 

C 0*1 00167 15 

0.D.L6J5 X6_ 

1 01 05767 
C 01 015-15 

e 0-; 00311 

C 0-^ 00311 20 

00311 21 

00166 22 



c_o: 

C 0^ 
0-1 



003-10 
003-15 
003-10 



003-10 
U 3^1 
00 3-12 
Q 3-13 

03^5 
003-16 
003H7 



P \ 7 :i 5_ 
1736 
01737 



12 

0_5 
0-1 
05 
60 

;^"o 

0-1 

0-1 



01623 
-? 1 6S0_ 
01562 
01611 
0003J^ 
00000 
01735 
020.27 



PACH 
PACH 
BORG 



LISTS? 
LISTST+l 
166 



17 LISTST CSF 

18 B«U 
li PAC H 



CrtRt*^ 
$62 

BOZ 



BUZ 



PACH 

60RG 
BRU 



BUZ 
311 
LISTST 



23 
2-1 
25 



PACH 
PACH 
BORG 



SODYSX 

BaDYSX+5 

3-10 



26 * BODY STA 

27 BODYSX JRS 

28 TRY 



XLATc 

SIMT 
LoFLDX 



29 
30 
31 



JAF 
TRY 
SKR 



ILLINX 
IBM^iNi] 
LASTST 



32 
33 
3H 



NOP 

PACH 

PACH 



PKTALi^ 

$79 



0l7o»5 

C_.76_J)a0.0 6. 

35 OOOuS 

1 60 0S730 



35 
36 
37 
3 8 
39 



* PRINT A LINE 



PRTALN 



BORG 
LUA 



173s> 

I ICHCT 



STA 
PRC 



INCHCT 
EOUAL 



LIST oPROG TITLE 



STA 
LBL 



iNlTlAtIZE 
FIELD XLATE 



ILLEGAL LINE XLATE 



LAST STATEMENT TRIG 



INITIAL INPUT CHAK CNT 



INPUT CHAr^ CNT 



I 



017^0 1 10 nooi»5 



^0 



FET 



lUlNCT 



INITIrtL LINE- CNT 



017^1 
017^2 

017-1^ 
D.17'H5 
017^6 



017^7 

0175C 
017bl 



017b2 
01753 

_0J_7_5j^ 
Qi7S5 
01766 
01757 
01760 
01761 

_CLL7_.6_2_ 
01763 
0176-^ 
0_IZ6_5_ 
01766 
01767 
Q_L7_7JL 



01771 

01772 

0J_7Z3 

01774 

01775 

01776 

017/7 

02000 

O2O_0L 

02002 

02003 

02,O0A 

2005 

02006 



12 
43 
22 
01 
76 
35_ 
35 
10 
76 



05070 
0S270 
06215 



01742 
00026 
00035 



00170 
06255 
00005 



01 
C 43 
50 



01773 

0S225 
05767 



01 
76 
7_3 
61 
76 



01761 

00005 
00170 



.j:l_z.3. 

01 



00035 
00170 
_QiICL2_6. 



75 

_a.:. 

76 

55 

75 

36 

35 

35 

35 

60 

4j1 

04 

31 

24 

2 4 

10 

61 

76 

50 



01766 
05767 
_0I77.L 



00013 
00024 

OJLLZJL 

00004 
00006 

_0QQ_12_ 
63^0 
00004 
0Q022_ 
02004 
00024 
00012 
00013 
00026 

_OOOUCL 
00004 
05767 



41 

42 
43 



$74 



JKS 
BRM 
SKA 



PrcSUEC 
NXINCH 
CAi^i^FG 



PHi^j 5 Dec 

NEXT INPUT CHAR 
CAR RtTURN FLAG 



44 
45 
46 



BRU 
LDA 
STA 



S74 

9NEi3 
NoTTRfi 



END Of STATEMENT TRIGGER 



47 

48 
49 



i76 



STA 
FET 
LDA 



E&LTRij 

NINE 

INCHCT 



END &F LINE TRIGGER 
INPUT CHAR CNT 



50 
51 

_5_2_ 
5? 

54 
55 



$75 



BRU 
BRM 
SKE 



$76A 

NXACCH 

CARET 



NEXT ACTIVE CHAR 
CAR RETURN 



BRU 
LDA 
SKG 



$75A 

INCHCT 

E6LTRG 



END OF LINE 



INPUT CHAR CNT 
TRIGGER (ADDRESS 



OF FIRST CAR RET) 



56 
57 

58 



$75A 



MIN 
LDA 
SKG 



NaTTRG 
E&LTRG 
ONES 



END OF STATEMENT TRIGGER 
Ei\D Or LINE TRIGGER 

END OF LINE. 



59 
60 
6J 



BRU 
LDB 
BRU 



$756 

CARET 

$7SC 



CAR RETURN 



• NO 
.YES 



62 
63 

64 



$75B 



65 
66 
67 



$75C 
$76A 



LDA 

ADD 

LDB_ 

STB 

STA 

STA 



LACriCT 

ONE 

FRSTCH 



LAST MOTIVE CHAR CNT 
FIRST CHAR READ BY NXACCH 



CRNTCH 
INCHCT 
RDSTCT 



CURRENT CHAR 
INPUT CHAR CNT 
READ ^jTOP CNT 



63 
69 
70 



STA 

PRC 
SER 



CTL2 

CRNTCH 

FAILDL 



CENTRAL 2 
CURRENT CHAR 
FAIL UATA LIST 



71 
72 
73 
7 4 
75 
76 



$77 



77 
78 



JAF 

BNG 
MON 
MON 
FET 

LDA 
SKE 



%77 

ONE 
ERLIST 



ERROR OUTPUT LIST 



ERSTLS 
MINUSl 
W0*2 



ERROR STOP LIST 
MINUS ONE 



CRNTCH 
CARET 



CURRENT CHAR 
CAR RETURN 



0.2007 

02010 

02011 

20 1.2 .. 

02013 

020M 

020L5__ 

02016 

02017 

02020 
02021 

2cai_., 

02023 
0202^ 
2 0.2 5__ 
02026 
02C27 

020a0 
02031 





C 

C 

C. 

C 



_0_ 






C 

_C„ 
C 

c 
c 

Q 



05225 

_QJ52_2j6_ 

0^227 

G a 2 :3 

0S„2 31_ 

05232 

6 2 3 3 

Qb,2^3.^_ 

06235 

0l?236 

0623.7_ 

0i2'11 
0b2-i?, 
5 2 ''1 3 
0S2^-1 



01 
76 

35 
61 
76 
35 
53 
01 
01 



01 76 3 
00005 
000U6 
0015 
00015 
OOOM 
_0^(I3.5 
06671 
05665 



72 06322 

01 0^233 

7_6__QaOA4_ 

35 00005 



76 

35 
71 

51 



05767 

_0Q0_CL1 



06S01 
0b225 

D_20JlZ__ 

0-^ 05225 
0^ 05267' 



05225 
OOOCiO 
_PCLQ_yb_ 
00013 
0^2/0 
OPJJLL 
05234 
0o270 
05 727 
052<«i2 



00 
76 
35 
43 
„35 
01 
43 
5.0 
01 

76 00003 
5A_000i!.l 
01 0*233 
76 06727 
>0._a.^6 7 
01 02026 
53 00170 



i9_ 

80 
81 

62 



83 
84 
85 



66 
87 



89 
90 
.5X 



92 
93 
94 



95 

96 



98 

99 

lOA 

101 

102 

103 



104 

105 
106 



BRU 
LDA 
STA 
MIN 
LDA 
STA 
SKN 



S/S 

INCHCT 
IICHCT 
ILINCT 



INPUT CHAK CNT 

INITIAL INPUT CHA« CNT 

INITIAL LINE CNT 



ILINCT 
LIN£CT 
NaTTRG 



BKU 
BRU 
EXTi<A Pi 



CLKIET 
CLRIEF 



_ajGTJlvi:_j:j4ai 



S213A 



A2_L4_ 



SKA 

BRU 

iJIA_ 



STA 
LDA 
STA 



CNCHFG 
S208 

INCHCT 

CARET 

CJLNTCH 



$215 



$79 



LDX 

BRR 

JLOy_ 



Wt^KddT 
NXACCH 
*-l 



PACH 
PACrt 
NEXT ACTIVE 



NXACCH 

$213B 

CHAi< 



NXACCH HLT 
LDA 



5225 



INCHCT 



STA 

BRM 
STA 



LACHCT 
NXINCH 
FkSTCH 



107 

1C8 
109 



BRU 
«208 6Rf^ 
S206A SKE 



$206A 

NXINCH 

SPACE 



CNT 



INITIAL LINE 

LINE CNT 

END Qf STATEMENT 



TRIGGER 



CLEAR 
CLEAR 



CTNE 
ONE 



EXIT 
EXIT 



TRUE 
FALSE 



C(?NTlNUATION CHAR FLAG 

ACTIVd CHAR TEHP 1 
INPUT CHAR CNT 
CAR RETURN 

CURRENT CHAR 

W»RK d&TT»K 
NEXT ACTIVE CHAR 



INPUT CHAR CNT 



CNT 



LAST ACTIVE CHAR 

NEXT INPUT CHAR 

FIRST CHAR READ BY NXACCH 



NEXT INPUT CHAR 



110 
HI 
112. 
113 
114 
J 15 
116 
117 



J2i)..9_ 



BRU 
LDA 

SKX 
BRU 
LDA 
_S_K_L 
BRU 
SKN 



$209 

SCANMO 

UdLKFG 

$20 3 

SPACE 

CARET 



SCAN rtUDE 
USE BLANKS 



FLAG 



CAR RETURN 



$215 
EOLTRG 



END OF LINE TRIGGER 



I 

CO 



I 

052*17 

5 2 61 
052b2 

Jj5 2.S3. 
U52S-? 
5 2 6 5 

J5b25<SL 
OS2S7 
05260 



01 
75 
36 
S'3 
Ql 
76 
35 
61 
^3 
72 



_0i2S0_ 
00005 
00170 
00037 
020i^6 
00005 



0001-^ 
0S270 
.062_I5_ 
01 0S2t35 
71 06250 



_0 b 2 iX._Q_5Z._0J10JJi, 
05262 C 50 0S727 
052o3 C 01 020ii2 

_Q_5 2 6_1_._J1„^ 3_A5^2_7JL 



6 2 6 5 
05266 



60 
01 



_aie.67__j}__Qi_ 



05270 
Uc271. 
05272 
D5273 



05 

.C_05. 

C 05 

C 05 



0527^ 
_0ji2.7_5. 



OOO-SS 
05262 

052o7 

OOOOl 

OOO^UX. 

OQIOO 

066«^3 

Oi.-643._ 

00200 

07 OOOUO 

_a i„n_Q^o.o_ 



000^^ 
0.l30A5__ 
05767 
0623^ 
-0-62l5_. 
00022 
OOOiil 
.a.i6_o5.„ 
05671 
06322 



118 

119 

120 

_12J 

122 

123 

L21. 

125 

126 

A2JL 

12a 

129 

_L3iD_ 



131 
132 
.L3J_ 



134 
135 
X3-6_ 
137 
133 

MO 
HI 
l<2. 



1^3 
1^-J 
1A5_ 
M6 
M7 
IM. 
M9 
150 
i.5_l_ 
152 
153 
iS4_ 
155 
ls^6 



B!?U 



$20SA 



LD0 
STB 
SKN 
bRU 
LDA 
STA 



^209A__- 
IiNlCHCf 
EiJLTRG 
LASTST 



$215 

INChCT 

ACHTPi 



!i>211 



MIN 

SKA 



S213 



&RU 
LDX 
_SIX 
SKE 
BRU 



LINtiCT 

NXINCH 

$211 

ACHTPa 



SKK 
6RU 



SPACE 
$2M 

ACHTP2 
$213 



i&2136 



5TART 



EQU 
PNCH 
P_Nr_H_ 
PNCH, 
PMCH 
-Ml^J 



*-l 

1 

I 

LlOO 
L66-13 



200 



SLAKX. 



sTep 

BEU 

* SY^'d&L DEFINITIONS 
ACHTPI Be&L ^^ 

AC.JU_P^__6A5_L__ 15. 

CAr<ET be»L 5767 

CAi^ftLO eOOL 623-1 

_Q_AM.fLG_MAU 6_21S. 

CHT5LN BtJftU 22 

CKaMCT BOeU 21 

C L «.!_£ F_e e 6 L 5665 

CLlUET faVjL 5671 

CNCHFG Been 6322 



INPUT CHAR CNT 

END OF LINE TRIGGER 

LAST ^iTATcHENT TSIGGEJl 



INPUT CHAi< CNT 
ACTIVE CHAK TEMP 1 



LINE CNT 

NEXT INPUT CHAR 

CAR RtTURN FLAG 



._A C_Ll V E _ CHAR TE ^-.P 2 



N E XT _.I N PUT CHAR 

ACTIVc CHAR TEMP 2 

R A N„l jT &F Rg&M 



_Q_aoijj^ 



131 CJi{0_CfcL_B_5J5LL 





06330 
062b7 
30170 


158 

159 

._16i? 


CTL2 

£jecT 

_^Le.LTRG_. 


BO(>L 
B&OL 
b»dL 


6330 
6267 
170 _ 


END OF LINE TRIGGER 






05730 
00012 
00013 


161 
162 
163 


cOUAL 

£RLIST 

ER3TLS 


b&3L 
8IJ0L 
BOOL 


5730 

12 

13 








000;i2 
06250 
00171 


16-1 
165 
166 


FAILDL 
FOUR 
-FRoLCJi. 


BOOL 
BOOL 
60BL 


22 

6250 

171 


FIRST CHARACTER READ BY NXACCH 






00072 
01611 
00006 


167 
168 
169 
170 
171 
172 
173 
17^ 
175 


HLDPWD 
I6MEND 
IICHCT 
ILINCT 
ILLINX 
INCHCT 
lOFREE 
LBFLDX 
LlOO 


B5QL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


72 

1611 

6 

16 

1562 

S 

5433 

1650 

100 








0001& 
01S62 
QOOOd 








05^33 
01660 
00100 








06361 
07000 
00013 


176 
177 
178 


L6361 

L7000 
LACHCT 


BOOL 
BOOL 
BOOL 


6361 
7000 
13 








00037 
OQOM 
00026 


179 LA6TST 

180 UIiNtCT 
lei filNUSl 
1G2 NIiME 
183 NSTTRG 
164 NXINCH 


BOOL 
BOOL 
BOOL 
BOOL 
BOOL 
BOOL 


37 

M 

26 

6255 
35 
5270 








06265 

00035 

_ 0-5270. 








0Q0<2^ 
00026 
351b0 


186 
U»6 
167 


ONE 

CtNES 

PCHCfJD 


BOOL 
BOOL 
BOOL 


24 
26 
5160 








0S136 
0S070 
00107 


168 
189 
190 


PCHFIN 
PR5DEC 
PRACTG 


BOOL 
BOOL 
BOOL 


5156 
5070 
167 








00012 
00003 
01623 


191 
152 
1_93 . 


«DSTCT 

scani^d 

aiNIT 


BOOL 
BOOL 
BOOL 


12 

3 

1623 








05727 
0002^ 


194 
195 


SPACE 
UBLKFG 


BOOL 
BOOL 


5727 

24 








cS, 















AQOOO. 
06501 
015^5 



19tt 
19^ 



jlO 

WRK&UT 
S62 



B&QL 
BOOL 



6501 



200 
^01 
2C<2 



* CQMPILfcf? 
SNG 6PD 

CSF OPD 

FET OPD 



POPS 



13100000 
10100000 
11000000 



203 
20-1 
205 



JAF 
JAT 



OPD 
&PD 
OPD 



10-^00000 
10300000 
11200000 



206 
207 
2Q8_ 



HON 
PKC 

PRO 



OPD 
OPD 
OPD 



12^00000 
16000000 
16100000 



209 
210 
-2_U_ 
212 
213 
2X± 



SEfe OPD 
TRY OPD 
* PRINTER 



PLP 
PRT 
-PSCJ3_ 



OrD 
OPD 
OPD 



215 
216 

2ia 

219 



_P-aop.Q. 



221 

222 
223 



PSCl 
TOPP 
MLB 



OPD 
OPD 
OPD 



* SPECIAL I 
PACH OPD 
PNCH O PD 



PTaP 
:3T0P 



OPD 
OPD 
END 



M-100000 
10500000 
EOWS/SKS'S 



00202060 

o-'ioigoeo 

0021 0^60 



0021H60 
002H000 
Q120_000.0. 



PRINT, 1 CHARACTER MODE 
PRINTaR READY TEST 

5 KJ P LO _ CHAN NEL 

SKIP TO "cHANNET 1 
TERMINATE OUTPUT 
MEMORY INFO BUFFER 



PS FOi< PROGRAM 

00-^00000 
__^__Oi^_5Jmi3.0J3 



PATCHER 



00600000 
00700000 



4CaT?l._ 


j:oa.4^ 


ACHTP2 


000-5_5_ _. 


dtDYbX^„ 

CK3MCT 


.Q53'?_0. 

00021 


CAi^ftl.O_ 
CLitlEF 


__0623_^ 


CAKf^FG 


Cb^lS 


CHTSLN 


00022 


05665 


CLititT 


C5671 


CMCHFG 


06322 


CRNTCH 


00004 


EOLTi^G 


00170 


t K' L I S T 


00012 


£f<STLS 


00013 


FAILilL 


00022 


FRdTCH 


__0Pi7J 


HLDPwD 


e007i2 


I & « E iM D 


01611 


IICHCT 


00006 


ILINCT 


OOOIS 


ILLINX 


rjl&62 


lolCHCT 


U0005 


IdFS&e 


05^33 


LACHCT 


00013 


LAbjaT 


^0iJ37 

0OJ26 


LSFLDX 


01660 
U003b 


LINECT 

i^ X A C C H 


OOOH 
0F225 


LISTST 
NXINCH 


00166 


rVilMUiil 


tNiSTTWG 


05270 


PuHC'ItD 


Cbi60 


PCHFIN 


05156 


PR5DeC 


05070 


PRACTG 


00167 


P'VT;^LN 


0173S 


(T iJ b T C T 


00012 


SCANilD 


00003 


UBLKFG 


0G024 


WK^BifT 


C6a0l 


CAiilT 


05767 


t-JECT 


06267 


EQUAL 


05730 


L b 3 6 i 


0636i 


Lbb^'d 


U66'^3 


L6650 


06650 


L7000 


07000 


$<:U8a 


e£23-» 


... 5*209 A 


052b0 


«213A 


02020 


$213a 


05267 


a I iM I T 


C;1623 


aPACa 


05727 


aTART 


00200 


CTl2 


J6330 


F&yi^ 


ca^so 


Liao 


00100 


\UNl 


Of 25b 


.» N !• S 


00026 


pach 


Cb<>76 


PrvCH 


05276 


PSCO 


0P276 


PSCl 


05276 


PTaP 


fJb<i76 


i2QB 


05233 


$209 


0F^242 


S2U 


05255 


*213 


Q62 6fi 


$21^ 


02022 


S215 


02026 


S73A 


01761 


*73a 


01766 


*7bC 


01771 


*76A 


01773 


ST^P 


JS276 


TCrPP 


C b d 7 6 


a IV 3 


06276 


dUZ 


003 11 


CSF 


05276 


FsCT 


C b «< 7 


JAF 


05276 


JAT 


05276 


jsei 


05276 


LoQ 


cau3o 


Mlb 


05276 


iMCN 


0F276 


ONE 


00024 


PLP 


ebi76 


PftC 


05276 


Pi^Q 


05276 


FRT 


05276 


*rj^ 


C' 1 3 ** b 


S7H 


017^2 


*75 


01753 


S7b 


01751 


5?/ 


oi^aa-i 


479 


02027 


61R 


0S276 


TH1 


05276 


WU 


uoaoo 















SDS Q 2 n F9l?Tf?AN II 

V E (? 3 I 9 N F 

neCEMBEf? II. 19 



C 9 "! » I L E R 



6 3 



»VHC» «>IJT CRI^PILEP T9 FBLLBifoI^G ADDRESS! 
Of^fl PUNCw? EQu LAST 



MFMfiRY U'iED BY CAMPILER (N9T I^CLUDI^6 TABLES 
0iS6'*3 UStPh* EQU LSTMEir 



OQOO 



nnoni 
n ni oopno 



* 


p 


R P G 


9 (» W 










00100 


on 


no 





1 


04I 30 


nn 


ni 





ot 


0^777 


no 


P'i 





01 


0S003 


oc 


ns 





01 


OS-fl^O 


nn 


04 





01 


OS^SS 


00 


OS 





01 


03777 


00 


nfr 





01 


OSOPS 


on 


7 





01 


< 7 =1 a 


on 


10 





01 


n44'a< 


on 


1 1 





01 


P.^4^0 


nn 


I ? 





1 


054ft7 


on 


13 





01 


04|S3 


on 


1-^ 





01 


4 ? * 1 


00 


IS 





1 


0-5734 


001 


16 





01 


043^; 


00 


17 





01 
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SPD 


1700000 




CNT 


SPD 


2000000 




RLS 


SPD 


?I00000 




TST 


SPD 


P200000 




FIL 


SPD 


?300000 




MSN 


SPD 


2400000 




LDP 


SPD 


2500000 




BLF 


SPD 


2600000 




SAL 


SPD 


2700000 




PUL 


SPD 


3000000 




BNU 


RPD 


3100000 




6AF 


BPD 


3200000 




CAR 


SPD 


3300000 




PL6 


SPD 


3*00000 




CAC 


SPD 


3500000 




CIC 


SPD 


3600000 




FIC 


SPD 


3700000 




FAC 


SPD 


4000000 




B9P 


SPD 


4100000 




MeF 


SPD 


4200000 




SNt 


SPD 


4300000 




se<? 


SPD 


4*00000 




LCF 


SPD 


4500000 




FIP 


SPD 


*600000 




ADP 


SPD 


4700000 




IBS 


SPD 


ROOOOOO 




see 


SPD 


RIOOOOO 




S9T 


SPD 


5200000 




SDP 


SPD 


5300000 




mDP 


SPD 


5400000 




REC 


SPD 


5500000 




C9F 


S»D 


5600000 




LCB 


RPD 


5700000 




Pf?C 


SPD 
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04 
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07 
08 
09 
10 
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13 
14 
15 
16 
17 

te 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
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33 
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35 
36 
37 
38 
3 9 
40 
41 

42 
43 

44 
45 
46 
47 
48 
49 

so 

61 



nonno 





PAGF 


l?UM-TIM 


SFX 


8PD 


inoGOona 


SFL 


e»f»o 


1 ni 00000 


APX 


SPtl 


inpDoano 


4FL 


J^T) 


) nsnoonn 


FX3 


(?»D 


1 n^ooano 


FAS 


9PD 


IPfeDOOQG 


09X 


SPD 


1 inooooo 


DSF 


S?*!) 


! 1 100000 


AST 


9PD 


1 i?oooon 


ASN 


»?PD 


! 1 300000 


XFA 


PPD 


1 1 ^00000 


FFA 


9PD 


1 iSQOonn 


XNA 


SPD 


1 1 ^oonon 


F\A 


8PU 


1 1700000 


XIO 


9PM 


1 5000000 


FI9 


fiPD 


i?inooon 


LFL 


f»»D 


I2R00000 


LFX 


0PD 


i?30onoo 


FLA 


0*1.1 


1 ?6oooon 


FAD 


fi»D 


t '5100000 


FLS 


OPO 


1 5! 2 u 


F3U 


flPD 


13600000 


FLM 


9 PI) 


) •Jf^noooo 


xyp 


flPD 


M 


FvP 


RPD 


i^inoGoo 


FLD 


9PD 


M ;■: n Q 


XDV 


9»D 


) ij « n 


FDV 


RPD 


i'?nocjoo 


F^C 


9PD 


i-eynooDO 


JUN 


SPO 


not 00000 


XXA 


OPD 


n <fl ^ r) fl 6, n n 


Cs?X 


SPD 


o^f noo?o 


CXB 


PPD 


O46noc*?o 


XXB 


0PD 


0^600 60 


IDE 


9PD 


o^f no ! 40 


Xtt 


RkD 


n-tff 001*0 


XtC 


BPD 


0?3000D0 


tXQ 


riPD 


OP300000 


WPY 




Of ^00000 



Prs- DEFIMITI9N'5 





4f67 




4168 




<\ f 9 




4| 70 




<17| 




4172 




4173 




4174 




4175 




4176 




4177 




4178 




4179 




4180 




4181 




4)82 




4133 




4184 




4IS5 




4186 




4187 




4188 




4189 




4190 




4!9! 




4192 




4193 




4194 




4195 




4196 


«l<57 




ODDfi^kLL B9 OEFIMTlfiNS 


4198 




4|99 




4200 




4201 




4202 




4203 




4204 




4205 




4206 




4207 




4208 



1-105 



o 



PPO 


QPO 


I^JOGOOO 


sec 


SPD 


1 1^ ? D m 


blH 


RPD 


1 ft 3 n n n 


FtX 


flPD 


1 **iOOOQO 


P85 


OPD 


1^500000 


P66 


SPD 


16 600000 


P67 


c>PD 


1*700000 


P7& 


R«D 


17000000 


P7I 


epD 


1 7100000 


P7? 


ftPL) 


17?00D00 


P73 


OPD 


17300000 


P74 


BPD 


1 7^00000 


P7S 


SPfi 


1 7500000 


P7fe 


SPf) 


17600000 


P77 


f»«D 


1 7700000 



■0 1 6? 

41S3 

<!?!<« 

41 55 

<\ ^7 

«« I P8 

^ 1 60 
4161 
4 I 6? 
*l 63 
41 64 
*I65 
4 I 66 




PART II. LOADER 



00200 
00?01 
00202 
00203 

00346 
00347 
00350 

02062 
02063 
02064 

00714 
00715 
00716 

00756 
00757 
00760 

02462 
02463 
02464 
02465 
02466 

02467 
02470 
02471 
02472 
02473 
02474 



06 
06 
04 
04 

76 
04 
04 

61 
04 
04 

01 
04 
04 



76 
04 
04 

76 
35 



76 
01 
00 



05 
05 
05 
05 
07 
n« 



03000 
00030 
00346 
00346 
00346 
00275 
02062 
02062 
02062 
00072 
00714 
00714 
00714 
02462 
00756 
00756 
00756 
02466 
n?462 
02466 
02462 
00043 
02466 
00055 
00715 
00000 
02466 
00001 
00001 
00300 
02466 
00000 
00300 



1 
2 
3 
4 
5 
6 
7 
8 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
77 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



CPRRECTlftNS TO FO R T RAN L E ADER (G) 
TO MAKF VERSION H 



D3A 



LDSYS 



D29A 



n35 



SAVBK 



LOCBK 
LAST 



PTAP 

PT4P 

PACH 

PATH 

BORG 

LDA 

PACH 

PATH 

BORG 

MIN 

PATH 

PACH 

BORG 

BRU 

PACH 

PACH 

BORG 

LDA 

PATH 

PACH 

BORG 

LDA 

STA 

LDA 

BRl) 

P7F 

FQU 

PNCH 

PNCH 

PNCH 

PNCH 

STOl» 

BRU 



SFPT 1,1964 



L3000 

L30 

D3A 

D3A 

346 

MFHSIZ 

LDSYS 

LDSYS 

2062 

E0SI7E 

D29A 

D29A 

714 

SAVBK 

D35 

D35 

756 

LOCBK 

SAVBK 

LOCBK 

2462 

BREAK 

LOCBK 

ISTIAD 

D29A+1 



♦ -1 

1 

1 

L3C0 

LAST 

L300 



SAVE LOCATION OF BREAK 



LOCATION OF BREAK 



BREAK 

LOCATION OF BREAK 

FIRST INST ADR 



NO 

1 










1 












40 
41 


* 






00043 


BREAK 


BOOL 


43 


00055 


42 


ISTIAD 


BOOL 


55 


00072 


45 
44 


E0SI7E 
MEMSI7 


BOOL 


72 


00275 


BOOL 


275 


00030 


46 


L30 


BOOL 


30 


00300 


46 


kioo 


BOOL 


300 


03000 


47 

48 


L3000 

* 


BOOL 


3000 




49 

50 


PACH . 
PNCH 


OPP 


0040000Q 




OPD 


00500000 




51 


PTAP 


OPD 


00600000 




5^ 

53 


STOP 


_OPIl 
END 


00700000 


00000 





ISTIAD 


00055 


EOSTZE 


00072 


MEMST7 


00275 


BREAK 


00043 


L3000 


03000 


LDSYS 


02062 


LftCBK 


02466 


SAVBK 


02462 


D29A 


00714 


L300 


00300 


LAST 


02466 


PACH 


02475 


PNCH 


02475 


PTAP 


02475 


ST8P 


02475 


D35 


00756 


D3A 


00346 


L30 


00030 














C(5K;KECTieMS T& FdRTf<AN LOADER (F) 



T(J yiAKIi VERSION G 



MAY U 1964 



00200 

0G201 

.00Ji02_ 

00203 

00317 



C 06 03000 8 
06 00030 9 

0__0A _0_0_3_i7 LQ. 

C 0-^ 00317 11 
00317 12 
01 024S0 L3_ 



PTAP 
PTAP 
PACH 



L3000 
L30 

B!«U930 



SRU93C 



PACH 
&8RG 



Bit:U93a 

317 

PCH93Q 



G0320 

PaML 

007'=i3 



C 04 0C743 
C 04 0Q743 



14 
IS 
16 



00743 
35 02457 



17 

13 
19 



00744 
00745 

00747 

..0\)73SL 
00751 

_0<:.4 50_ 

02-^51 

024b2 

2 4 is 3 
C2454 
Q24b.5 
r: 4 B 6 
04:457 
02 4 6_n.; 

02461 
I 

0^ 



04 00747 
e 04 00747 

0074Z 

C 55 02457 



C_04__.024 60.. 
C 04 02461 
02460 
0__7,6_ .02.4_60_ 
C 75 02461 
C o6 20062 



20 
21 
J2 

23 
24 
_25_ 
26 
27 
28 



29 
30 
.3-L 



C 35 02302 32 
36 02301 33 

.C__;^6_ 2 73 _3_4_ 

CI 01 00320 35 
C 00 00000 36 

eil_:L740 37_ 

00013560 3| 
02^61 39 



PACH 
PACH 



L743 
L743 



L743 

* 



STA 



743 

savdel 



L747 



PACH 
PACH 

ADD 

PACH 



L747 
L747 
747 



SAVOEL 



PCH930 



PCHS30 



PACH 
6(JRG 
L_DA _ 
L DP 
RCY 



LAST 
2450 
BIG 



LITTLii 
50 



STA 
STB 
LOA 



Li^GECO 
SMALCO 
TiSPilEJi 



PATCH FdR 930 



SAVE DEL L»P 



SAVE iJEL LOP 



Ne-»P ON 930t SHIFT 
RIGHT 2 5N 910/20 



LARGE C&UNT DOWN 
SMALL C3UNT DOWN 
LAST hDR of memory 



SAVDEL 
ilG 

LITTLE 
LAST 



BRU 
HLT 

j)ec_ 

DEC 
EOU 



BKU930*1 



3000.00 

6000 

*-l 



SAVE UEL LOP 



^ * 

Q'dAb2 C 05 00001 -^ I PNCH I 

02*=I63 05 OOOOl 42 PNCH I 

O'dA^A .a-a5-_0_Q_3_QC H P_NCH_^__L30JP_ 

02^65 05 0<>46l ^A PNCH LAST 

02466 C 07 00000 43 STSP 

02 467 01 003 00 46 BRU L300 



47 * 

02302 48 LRGECD BOOL 2302 
J123.g_l 4 9 S MALCD BCtPL 2301 



00273 50 TOPMEM BdCL 273 
00030 51 L30 B&OL 30 
0Q 3Q0 52 L300 B&gL 300 



03000 53 L3000 B&OL 3000 

54 PACH OPD 00400000 

55 PNCH OPD 00500000 



56 PTAP ePD 00600000 

57 ST»P 0PD 00700000 
00000 Sa END 



5A vnei. 

L300 



00317 
a^^57 
C0300 
.0,2/170 
C2^60 



LITTLE 02-161 



SMALCD 
L7^3 

PNCH 

L3~Q 



02301 

007-13 

_0.?.17.g. 

00030 



I 



LRGECD 



IL747 

PTAP 



02A0_2 
00273 
007-^7 
02^70 



fC_r|.930 
L3J00 
LAcjT 
STiJP 



02^50 
U3000 
02*161 
02-170 



00001 



02304 



00001 
01 00300 



00300 



00300 





76 


02266 


00301 





75 


00026 


00302 





54 


02267 


00303 





35 


00273 


00304 





36 


40273 


00305 


n 


53 


40273 


0030^; 





01 


00302 


00307 


f! 


55 


0C024 


003 in 





35 


00275 


0P3I 1 





I* 


05'975 


003 1 ? 


n 


35 


O?^ I 2 


00313 


n 


54 


nnn24j 


0031 4 





35 


023} 1 


00315 


p 


54 


00024 


003U 


n 


35 


02310 


00317 





76 


00273 


00320 


n 


55 


0297! 


00321 


n 


35 


00274 


0032? 


n 


76 


02226 


00323 





35 


00250 


00324 


n 


60 


00250 


00325 





60 


00250 


00326 





76 


02227 


00327 





54 


00250 


00330 





35 


00250 


00331 





76 


02302 


00332 


n 


35 


00263 


00333 





43 


02156 


00334 





76 


00025 


00335 





35 


00271 



1 


* 






2 


* 






3 


* 






4 


* 






5 


* 






6 


* 






7 


* 






9 


* 


PUWCH 


BUT LBAD 


Q 


* 


AMD FR9M 300 T 


10 
1 1 


PUNCH2 


EOU 


LAST 


1 I 

12 


* 






M 


* 






14 




BSRG 


1 


15 




B»U 


IMT7E 


16 


* 






17 


* 






IP 


* 






ICJ 




B6RG 


300 


9 


♦INITIALIZE 




91 


INITZE 


LDA 


I3KW2 


99 




LDB 


SIG^) 


23 


S2 


SUB 


2K 


9a 




STA 


T9pmf:m 


25 




ST8* 


T9PMEM 


9<, 




5KN* 


T9Pr.i?M 


97 




BPU 


S2 


98 




ADD 


8NE 


?Q 




5TA 


ME«<c!TZ 


30 




M9G 


TAGi^IT 


''I 




STA 


B&TLT 


33 




SUB 


SME 


•^3 




eTA 


BOTLTI 


3ii 




SUB 


8NE 


3s 




STA 


BftTLT2 


36 




LTA 


TSPMFM 


37 




ADD 


LBLKEY 


3fl 




STA 


TPMPLK 


3q 




LDA 


WSIY 


4n 




STA 


M58PSZ 


4| 




«Kf? 


MSBPeZ 


42 




SKR 


MS8P9Z 


43 




LDA 


MTWELV 


44 




SUB 


i^SSPSZ 


4S 




STA 


f«S8PSl 


4f, 




LDA 


L?GECD 


47 




STA 


CTDMST 


4a 




BP^ 


L9ADMP 


40 




LPA 


SIGVBT 


50 




STA 


MULSP 



SOS FSRTRtAM 



DECEMBER 



I I 



L 9 A D E P 



9 6 3 



INITIALIZE 



18K-2 








SIGN 








2K 








LAST 


AOR 9F 


MEM9RY 




LAST 


AOR 9F 


MEM9RY 




LAST 


ADR 8F 


MEM9RY 




SI 








8NE 








SIZE 


9F MACWINE 




TAG BIT 






B8TT9H LINK 


T9L 




8NE 








B8TT9M LINK 


TBL-1 




PNE 








B9TT9M LINK 


TBL-2 




LAST 


ADR 9F 


MEM9PY 




LBL KEY 






LAST 


AOR 9F 


MEM9RY ♦ LBL KEY 


MINUS 


SIX 






MINUS 


SPEC 1 


9P TABLE 


SIZE 


MINUS 


SPEC 


ftp TABLE 


SIZE 


MINUS 


SPEC 


BP TABLE 


SIZE 


MINUS 


TWELVE 




MINUS 


SPEC ' 


9P TABLE 


SIZE 


MINUS 


SPEC ! 


BP TA9LE 


SI7F 


LARGE 


C9UNT 


D9WN 




C9UNT 


D9WN 


START 




L9AD 


MAIN PR9GRAM 




SIGN 


BIT 






MINUS 


UNLESS L8AD SYSTEM REQ 



2 
3 

4 
5 
6 
7 
8 
9 
10 
I 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 

30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



P0336 


n 


46 


30003 


^1 


CLR 




00337 


n 


7\ 


02233 


^2 


LDX 


MABSLS 


00340 


? 


35 


00250 


^3 


«3 STA 


ENDA9S.2 


003^1 


n 


-1 


00340 


«4 


BffX 


S3 


0034? 


n 


35 


00040 


^S 


OTA 


LIN<X 


00343 





35 


00041 


56 


STA 


M\FHtfl 


00344 





35 


00261 


57 


STA 


WlWfiLI^ 


00345 


n 


35 


00276 


^9 


STA 


MIRMTE 


00346 





76 


00273 


5Q 


LDA 


TflP»«EM 


00347 





35 


00042 


^0 


STA 


LPWCPM 


00350 





36 


00043 


«l 


STB 


BPEAK 


00351 





76 


02235 


<? 


LDA 


ST920 


00352 


n 


60 


00043 


«3 


SKR 


SPEAK 


00353 





76 


02234 


64 


LDA 


ST9|n 


00354 





35 


02305 


65 


STA 


MPPHST 


00355 





35 


00043 


«6 


STA 


B9EAK 


00356 


n 


35 


0P06I 


*7 

6P 


CTA 
♦READ NEXT 


LBXLES 
PRBGPAM PLSCK 


00357 


n 


76 


00275 


6q 


RNXPLK LDA 


MEMSIZ 


00360 





54 


0GO6I 


70 


SUB 


LeXLES 


00361 





55 


00040 


71 


ADD 


LI»J<X' 


00362 





35 


00057 


7? 


STA 


TEMPI 


00363 


n 


46 


30003 


7^ 


CLff 




00364 





01 


00367 


74 


BI?U 


?5 


0036E. 


n 


35 


40061 


75 


$4 STA* 


LBXLES 


0036* 





fil 


00061 


7f 


MIN 


Li^XLES 


00367 





60 


00057 


77 


S5 SKf? 


TEMPI 


00370 





20 


00000 


78 


W&P 




00371 





53 


00057 


7q 


SKK' 


TEMPI 


00372 


n 


01 


00365 


f^n 


B9U 


$4 


00373 





43 


0I5I2 


Pi 


BUM 


NXWPPD 


00374 





35 


00044 


fl? 


STA 


PPTYPE 


0037S 





75 


00026 


fl3 


LDB 


BNES 


00376 


n 


53 


00041 


f^4 


SKN 


MIFMBI 


00377 





01 


00403 


«5 


SPU 


$6 


0040O 


n 


70 


0224? 


96 


SXM 


MPPTYP 


00401 


n 


01 


00407 


fl7 


BPU 


$7 


00402 


n 


01 


02170 


"8 


PPU 


ILLTAP 


00403 





70 


02242 


flQ 


«6 SKW 


MPPTYP 


00404 





01 


02170 


90 


BPU 


ILLTAP 


00405 


n 


76 


00025 


0l 


LDA 


SIGMBT 


00406 


r 


35 


00041 


<J2 


STA 


MIPMPI 


00407 





35 


00045 


93 


S7 STA 


MIFPPP 


00410 


n 


76 


00040 


<5 4 


LDA 


LI^<x 


004t 1 





35 


00046 


"5 


STA 


Hf^LHLX 


00412 





76 


00043 


9* 


LDA 


BPE^K 


00413 





35 


00047 


97 


STA 


PPSTPT 


004)4 


n 


43 


01512 


qq 


RPM 


NXWRPD 


00415 





35 


00050 


90 


STA 


ENT 


00416 


n 


72 


02303 


ion 


SKA 


TAGP9P 



MINUS ABS LINK SIZE 
END ABS LINK TABLE 
S2 

LINK X 

MINUS If MAIN PR9G IN 

W8RDS LEFT IN 8UFFEP 

MINUS IF READING MACH TS END 

LAST ADR 9F MEMSRY 

L9WEST CBMMBN ADR 

BREAK 

920 HEAD START 

BREAK 

910 HEAD START 

MAIN PR9G HEAD START 

BREAK 

LABEL X LEAST 



SIZE 9F MACHINE 




LABEL X LEAST 




LINK X 




TEMP 1 




SI t 




LABEL X LEAST 




LABEL X LEA^T 




TEMP 1 




TEMP 1 




SIO 




NEXT WBRD 




PR9G TYPE 




SNES 




MINUS IF MAIN PR9G 


IN 


«3 




MAIN PR9G T^PE 




«4 




ILLEGAL TAPE 




MAIN PR9G TYPE 




ILLEGAL TAPE 




SIGN BIT 




MINUS IF MAIN PRi^G 


IN 


MINUS IF PR9GRAM REQUIRED 


LINK X 




H9LD LINK X 




BREAK 




PRBG START 




NEXT W9RD 




ENT 




TAG P9P BIT"? 





51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6B 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
04 
95 
96 
97 
98 
99 
00 



00417 


n 


0! 


00427 


01 


B9U 


$8 


00420 


n 


43 


01512 


03 


BRM 


NXUSRD 


00421 





35 


00051 


03 


STA 


MAMEl 


00422 





71 


00043 


04 


LDX 


BREAK 


00423 


7 


35 


DOOOl 


OK 


?TA 


1 «2 


00424 





43 


01512 


06 


BPM 


NXWPRD 


00425 





35 


00052 


07 


!?TA 


NAME? 


00426 


2 


35 


00002 


OS 


5TA 


2.2 


00427 


n 


7f 


00043 


OQ «8 


LDA 


BREAK 


00430 


D 


55 


02230 


10 


ADD 


EIGHT 


0043J 





35 
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782 
783 
784 
785 
786 
787 
7P8 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 



o 
01630 





72 


4231? 


70Q 




SKA* 


B9TLT 


01631 





01 


0)634 


8P0 




BPU 


$95C 


01«32 





4| 


0)626 


8fl| 




BRX 


S95« 


01633 





01 


01647 


80? 




BRU 


$95F 


01634 





76 


42310 


80^ 


$95C 


LDA* 


BftTLT2 


01635 





35 


0)64? 


8P4 




STA 


sosn 


01636 





76 


423 1 1 


80"; 




LDA* 


BPTLT) 


01637 


n 


35 


0)644 


80« 




STA 


S95E 


01640 





43 


02202 


807 




6PM 


PI^U'T 


01641 


443J6262 


eP8 




BCI 


2, MISSING 


01642 


? 


4527)2 










01643 


n 


00 


oooon 


enq 


^<95D 


HLT 




01644 


p 


00 


00000 


810 


%9^E 


HUT 




01645 


12121252 


8) 1 




ecT 


12121252 


01646 


? 


77 


00002 


812 




EAX 


2.2 


01647 





41 


0)627 


SI'S 


S95F 


BPX 


S95P. 


01650 


n 


43 


02107 


814 




BPM 


LBNGLD 


01651 





01 


01507 


815 




BPU 


NDPPBG 


01652 





70 


02251 


8U 


S96 


SKM 


MAPTYP 


01653 





01 


01655 


817 




BPU 


$97 


01654 





01 


0172) 


818 




BPU 


SlO-fl 


01655 





60 


00262 


8IQ 


$97 


SKR 


PFWADP 


01656 





76 


00262 


890 




LDA 


BFWADP 


01657 


p 


54 


02300 


82) 




SUB 


BUFcT 


01660 


n 


35 


P0265 


8?? 




STA 


BUFCNT 


01661 





54 


00024 


82:? 




SUB 


OWE 


01662 


p 


35 


00261 


e?4 




STA 


WINPUF 


01663 





76 


40262 


825 




LDA* 


BFWAOP 


01664 





35 


00266 


826 




STA 


CHKeijM 


01665 





76 


02300 


827 




LDA 


bufqt 


01666 


p 


35 


00262 


829 




STA 


BFWADP 


01667 





'«6 


30003 


8?o 




CLP 




01670 


c 


01 


0)706 


830 




BPU 


$1 O-i 


01671 





35 


000)4 


831 


<S98 


STA 


TEMP? 


01672 





55 


40262 


8'»2 




ADD* 


BFWAPP 


01673 





72 


00025 


83.1 




SKA 


SIGN' 


01674 





01 


0)700 


B3< 




BPU 


S99 


01675 





53 


000)4 


835 




SKN 


T£»»P2 


01676 





01 


0)702 


83f 




BPU 


SlOO 


01677 





01 


0)704 


837 




BPU 


$101 


01700 


p 


53 


000)4 


838 


S99 


SKN 


TEMP2 


01701 





01 


0)705 


83Q 




BPU 


$1 0? 


01702 


p 


53 


40262 


8*0 


$100 


SKNI* 


BFWADP 


01703 


p 


01 


01705 


841 




BPU 


$102 


01704 


p 


55 


00024 


84? 


$10) 


ADD 


ftwE 


01705 


p 


61 


0026? 


84 3 


$102 


MIN 


BFWADP 


01706 





60 


00265 


844 


S)P3 


SKR 


BIJFCNT 


01707 


p 


20 


00000 


845 




MPP 




01710 





53 


00265 


84fi 




SKN 


BUFCNT 


0171 1 


p 


01 


0)67) 


8*7 




BPU 


S98 



89TT9M LINK TflL 

B9TT9M LINK TBL-2 

89TT8M LINK TBL-1 
PRINT 



NAME 9F MISSING 
SUB-PPB5PAM 



L9NG LEADER 

NEED M9PE PP9GS 

MACH PP9G TYPE 

$6 

$5 

BUFFER W9RD ADR 

BUFFEk weRD ADR 

BUFFER START 

BUFFER C9UNT 

9NE 

W9RDS LEFT IN BUFFER 

BUFFER W9RD ADR 

CHECKSUM 

BUFFER START 

BUFFER W9RD ADR 

$3 

TEMP 2 

BUFFER W9RD ADR 

SIGN 

$7 

TEMP 2 

$8 

$9 

TEMP 2 

$10 

BUFFER W8RD ADR 

$)0 

9NE 

BUFFER W9RD AOR 

BUFFER CejNT 

BUFFER C9UNT 
$4 



799 

900 
80) 
802 
803 
804 
805 
806 
807 
808 
808 
809 
810 
91 1 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
930 
831 
832 
833 
834 
835 
936 
837 
838 
839 
840 
84) 
842 
843 
844 
845 
846 
847 



01712 


n 


75 


00026 


dA» 


0I7I3 


n 


70 


0n5'66 


849 


0171- 


p 


01 


01745 


S5n 


01715 


n 


76 


02300 


85| 


0|71fi 





55 


00024 


85? 


01717 





35 


0026? 


8^.3 


01720 





51 


01524 


8^< 


01721 





76 


0026? 


855 


01722 


n 


5- 


02300 


856 


01723 


n 


35 


00261 


8^7 


01724 


n 


76 


02300 


85S 


01725 


n 


35 


00262 


85Q 


01726 





51 


01524 


860 



SI04 



LDB 


8iviEc 


S<M 


CHKeuM 


PPU 


BADC<S 


LDA 


BUF^T 


ADD 


SNE 


STA 


BFWAD!? 


PRR 


FILPLIF 


LDA 


BFWADR 


?U8 


BUFPT 


5TA 


WIN8UF 


LDA 


BUF5T 


STA 


BFWADR 


BPR 


FILBllF 



SNES 

CHECKSUM 

BAD CHECK SUM 

BUFFER START 

SNE 

BUFFER WSRD ADR 

FILL BUFFER 

BUFFER W9RD ADR 

BUFFER. 5TART 

WBRDS LEFT IN BUFFER 

BUFFER START 

BUFFER W8RD ADR 

FILL BUFFER 



848 
8-9 
850 
851 
852 
S53 
854 
855 
856 
857 
858 
859 
860 











8« 1 




PAGE 












8«;9 


*!?E4D 


Tfl END 


(jF PRPGRAM 


01727 


n 


76 


00046 


863 


RDENDP 


LDA 


NaLHLX 


0|73n 


n 


35 


00040 


a«i4 




RTA 


LIN<X 


01731 





76 


00044 


865 




LDA 


PRTYPE 


01732 





75 


00026 


b6/e 




LDB 


SNEc 


PI733 


n 


7 


02251 


867 




SKM 


MAPT^'P 


01734 


n 


01 


0)737 


86C( 




BRU 


fill 


01735 


p 


43 


02047 


860 




BPM 


RDE^'DM 


01736 


n 


01 


01507 


87n 




B9U 


NDPsoG 


01737 





43 


01524 


871 


«l M 


B9M 


FILPUF 


01740 





76 


00267 


372 




LDA 


IWDoBL 


01741 





75 


00027 


87-^ 




LDB 


ADRM9K 


01742 





70 


00023 


874 




«;km 


ZERP 


01743 





01 


01737 


875 




BRU 


$1 1 1 


01744 


n 


01 


01507 


87^ 




BPU 


NDPPPG 










877 


*8AD CHECK S 


JM 


01745 





43 


0213* 


87fl 


BADCKS 


BPM 


PTRPRR 


0174* 


n 


01 


01525 


679 




BPU 


C<5I*ER 










8f>n 


*9EAD 


MACH TEXT 


01747 





76 


00270 


891 


RDMACH 


LDA 


»1L<t^T9 


01750 





55 


00055 


8 9? 




ADO 


ISTIAD 


01751 


n 


54 


00273 


883 




SUB 


TRPMFM 


01752 





35 


02306 


8fl4 




5TA 


LNKXMN' 


01753 


n 


76 


00270 


8195 




LDA 


MLK<T5 


01754 


n 


75 


00055 


e§* 




LDB 


1STIAD 


01755 





43 


01237 


897 




BPM 


TPAVEC 


01756 


n 


02 


20004 


888 




ESM 


20004 


01757 





76 


00055 


889 




LDA 


IRTIAD 


01760 





35 


02307 


8Qn 




?TA 


BLK«5TL 


01761 


n 


35 


02014 


891 


AGAIN 


5TA 


STXLPC 


01762 


n 


02 


02604 


89? 


RD8LK 


PPTW 


1 .4 


01763 





32 


00021 


893 




WIK 


FLAP 


01764 





76 


02014 


89-11 




LDA 


5TXLPC 


01765 


n 


32 


00021 


895 




WIM 


FLAR 


01766 





55 


00021 


89S 




ADD 


FLAG 


01767 





M 


00027 


697 




ETf? 


A R W q < 


01770 


n 


1ft 


02236 


8915 




MPG 


STXweP 


01771 





35 


020M 


89p 




?TA 


STXLOC 


01772 





16 


02237 


900 




MRG 


EAXTAG 


01773 


n 


35 


02007 


9ni 




QTA 


EAXL«>C 


01774 


n 


76 


00275 


902 




LDA 


MEMelZ 


01775 





55 


00040 


901 




ADD 


LINKX 


01776 





16 


0223* 


904 




MPG 


5TXMBP 


01777 





32 


00022 


90S 


LB^P 


WIH 


RW9PD 


02000 





40 


21000 


90^ 




BPTW 




02001 





01 


02006 


907 




P9U 


NBTi^AP 


0200? 


n 


76 


0201 4 


908 


GAP 


LDA 


STXL9C 


02003 


n 


|4 


00027 


9nQ 




ETR 


ADRMSK 


02004 





35 


0201 4 


910 




STA 


STXLOC 



H8LD 


LINK 


X 




LINK 


X 






PR8G 


TYPE 






6NES 








MACH 


PR9G 


TYPE 




$1 








READ 


T9 END MACH 


PR9G 


NEED 


M9RE 


PP9GS 




FILL 


aUFFE 


P 




FIRST »I9RC 


PF BL9CK 


ADR MASK 






ZER9 








SI 








NC£D 


M9RE 


PR9GC 





PRINT TAPE "EAD ERRBR 
CHECK SUM EPR9R RETURN 

MACH LINK T9L SIZE 

FIRST INST ADR 

LAST ADR 9F MEM9RY 

LINK X MIS 

MACH LINK TBL SIZE 

FIRST INST ADR 

PR9CESS TRA VECT 

20004 

FIRST INST ADR 



TURN 9N READER 
DISCARD FIRST W9RD 
L9CATI9N 

ADD INCREMENT. IF ANY 



SET UP STX IN L99P 

SET UP EAX IN L99P 
SIZE 9F MACMIN? 
LINK X 
STX M9P 

TEST IF GAP 

N9 

YES 

SAVE LBCATUN 



861 
862 
863 
864 
865 
866 
867 
868 
869 
370 
871 
872 
873 
974 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
893 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 











10-7 




PAGE 












1048 


♦PRINT 






02202 


n 


00 


00000 


10-99 


PRINT 


HLT 




02203 


n 


76 


02222 


lO'sn 




LDA 


FIVE 


02204 


n 


35 


00272 


1051 




?TA 


PRiNTC 


02205 


n 


02 


20004 


1052 




E&M 


2000- 


0220« 


n 


02 


02641 


1053 




ESM 


2641 


02207 


n 


01 


0221? 


1054 




BPU 


f 1 15 


02210 





6! 


02202 


10^5 


«1 14 


WIN 


P P I M T 


0221 1 





12 


42202 


105ft 




MIW* 


PPIMT 


02212 





60 


00272 


10C7 


«1 15 


SKP 


PPU'TC 


02213 


n 


20 


00000 


1058 




N9P 




022H 





53 


00272 


10^9 




SKN 


PRiWTC 


02215 





01 


02210 


1060 




BPU 


SI 14 


02216 





02 


14000 


1061 




EBM 


1 40nr) 


0??|7 





^0 


21000 


1062 


SI 16 


5KS 


21000 


02220 





01 


02217 


1063 




BPU 


«l l« 


02221 


r 


51 


02202 


1064 




BPR 


P P I W T 



FIVE 

PPINT C9UNT 

20004 

2641 

«1 

PRINT 

PRINT 

PRINT C9UNT 

PRINT C9UNT 

«2 

14000 

21000 

S3 
PRINT 



1047 
1049 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
105S 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 



CO 

o 




02?73 


77740000 


QP.7.74 


07700000 




02275 


02275 


2 00 00000 


02276 


00 40000 


02277 


00000135 


02300 


00 02313 


02301 


00002734 


02302 


00222370 


02303 


30000000 


023Q4 


77737777 



02304 



02305 





00 


00000 


02306 





00 


00000 


02307 





00 


oonoo 


02310 





00 


oonoo 


0231 1 


n 


00 


00000 


02312 





00 


ODOOO 


02313 






00135 
02314 



02450 



IS 


ALBADf? 


eCT 


777.<nooo 


16 


6B1T9P 


SCT 


07700000 


17 


TAGBIT 


EOU 


* 


18 


MSTbL 


HLT 


0,2 


1 9 


INDRIT 


MLT* 




20 


MAXeUF 


DEC 


93 


21 


*9UPFER START 




92 


BUFST 


MLT 


STBL'F 


23 


SMALCD 


DEC 


1500 


94 


LRGECD 


DEC 


75000 


25 


TAGP9P 


RCT 


soonnooo 


26 


NIND8T 


9CT 


77737777 


27 


* M E M B R Y 


U « E D F 


'» 


LA5T 


EOU 


*-1 


9g 


* 






''0 


* 






31 


* 






3? 


* 




T E M P 9 R 


33 


MPRHST 


HLT 




34 


LNKXMN 


HLT 




3"; 


aLK«5TL 


HLT 




36 


8BTLT2 


HLT 




37 


B8TLT1 


HLT 




''8 


BBTLT 


HLT 




^q 


STBUF 


B5S 


93 


<0 


2NDWD 


EOU 


STBUP*1 


41 


* 






42 


* 


T9TAL 


MEM9RY USED BY 


43 


USEDM 


EOU 


* 



ALL BUT ADR MASK 

6 BIT 8P MASK 

TAG BIT 

M9T LAST 9LBCK BIT 

IND BIT 

WAX BUFFER SIZE 

START 9F 3UF 
SMALL CBUNT Df»WN 
LARGE C9UNT D9WN 
TAG P9P BITS 
N9T IND BIT 
9 R C 9 D E 



ARY ST9RA^E 

HEAD START 9F MAIN PR9GRAM 

LINK X MIN 

8L9CK START L9CAT19N 

B9TT9M LINK TBL-2 

B9TTSM LINK TBL-1 

39TT9M LINK TBL 

START 9F BUP 



L9ADER: 



T9TAL MEM9RY USED BY L9ADER: 



15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 

35 
36 
37 
39 
39 
40 
41 
42 
43 



n?no5 


n 


01 


02025 


"1 1 




PS'U 


E-JCt-K 


o?nof 


n 


71 


00022 


V 1 '3 


NSTGAB 


LPX 


w w s <? n 


n?oo7 


? 


77 


oonoo 


913 


E4XL6C 


FAX 


0.2 


n?nin 


p 


53 


00021 


91- 




!S<N 


FLAn 


0901 I 


n 


Oi 


020|T) 


9|c 




B(?U 


AnS 


0?0I2 


r 


53 


00022 


91«, 




S^N 


R H R P D 


0P0I3 





71 


00022 


917 


ASS 


LDX 


PwBPD 


0?PM 


n 


37 


oonoo 


91 8 


5TXLBC 


STX 





0?0I5 





61 


02007 


910 




MIN 


FAXLPC 


0501 ft 





61 


02014 


920 




MIN 


STXLPC 


0?0|7 


r 


73 


02014 


991 




5KG 


STXLPC 


0?020 


n 


01 


02127 


99? 




P<?U 


P?2BIG 


0?02| 


n 


01 


01777 


9?^ 




BPU 


LP&P 


0?n22 


n 


43 


02136 


924 


«?E5ET 


BPM 


PTPfPP 


02023 





76 


02307 


99S 




LDA 


BLKSTL 


02024 





01 


1761 


99<, 




PRU 


AGAIM 


02025 





40 


20010 


997 


E9CMK 


BETW 




02026 


n 


01 


02022 


9?e 




BftU 


PESFT 


09027 





76 


00022 


99q 




LDA 


RW9PQ 


02030 





7? 


00026 


9?n 




SKA 


9NiFS 


02031 





01 


02022 


9^1 




Bf?U 


RESET 


02032 





76 


02275 


939 




LDA 


TAGBIT 


02033 





72 


00021 


9^3 




5KA 


FLAG 


02034 


n 


01 


01762 


934 




PRU 


PDBL< 


02035 





71 


02014 


93K 




LDX 


STXLSC 


02036 





37 


00057 


9'»(% 




STX 


TEMPI 


02037 





37 


00067 


937 




STX 


STNyPR 


02040 


n 


46 


30003 


93q 




CLR 




02041 


n 


76 


00270 


939 




LDA 


^•LKKTS 


02042 


n 


67 


00017 


9^0 




L«H 


15 


02043 


n 


16 


02251 


94| 




MRG 


MAPTYP 


02044 





16 


00057 


94? 




MRG 


TEMPI 


0204S 





35 


40047 


943 




STA* 


PRSTRT 


02046 





01 


01374 


940 




BPU 


CKALPG 










94^ 


*REAB ' 


Tfi END 


MACH I9R9G 


02047 





00 


00000 


94»S 


■?nEMDM 


HLT 




02050 





76 


00025 


947 




LDA 


SIGMBT 


02051 


n 


35 


00276 


94q 




STA 


mirmte 


02052 





43 


01524 


94Q 


$112 


BRM 


FlLf^Uf 


02053 


n 


76 


02314 


950 




LDA 


2NDwn 


02054 


n 


72 


02275 


95| 




S<A 


WLSTBL 


02055 


n 


01 


02052 


9^2 




BPU 


5119 


02056 





46 


30003 


9 = -^ 




CLR 




02057 





35 


00261 


9';« 




STA 


WINPUF 


02060 





35 


00276 


955 




STA 


M I 9 M T E 


02061 





51 


02047 


956 




BPR 


RDE^IDM 



REL9CATED 
TEST IF REL eL9C< 
N9. ABSBL'JTE 
TEST IF REL WBRD 
N9. UNREL8CATE 
ST9RE WORD 

IMCREMEfJT Lf^CATlSN 

PR9GRAM T99 BIG 
NEXT W9PD 

PRINT TAPE READ EoRPR 
RESET T9 9RTGINAL LBC 

TEST BUFFER ERPBR 
YES 

TEST N9N-MULTIPLE 9F 4 

res 

TEST IF LAST BL9CK 
N9. READ MEVT BLBCK 
YES. PICK U" LftCATiSM 
TEMP 1 
START 9F NEXT PRBG 

MACH LINK TBL SIZE 

17 

MACH PRBG TYPE 

TEMP I 

PRBG START 

CHECK FBR ALL PR9GS IN 



SIGN BIT 

MINUS IF REAPING MACH T9 END 

FILL BUFFER 

SECBND VIBRD BF BLBCK 

N9T LAST BLBCK BIT 

«1 

W8RDS LEFT IN BUFFER 

MINUS IF READING MACH TB END 

READ T9 END MACH PRBG 



91 1 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 

925 
926 
927 
923 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 



ro 








957 




PAGE 












953 


♦ L9AD 


«iYSTtrt 




0206? 





46 


30003 


959 


LDSYS 


CL«? 




02063 





35 


00271 


960 




STA 


MtjL«?i? 


0906^ 





43 


01524 


961 


SI 13 


B9M 


FILBLIF 


02065 





76 


00267 


96? 




LOA 


UDPBL 


02066 





75 


00026 


963 




Loe 


e^t•c 


02067 





70 


02251 


96<l 




S<M 


MABTYP 


02070 





01 


02064 


96B 




BPU 


fit? 


02071 





43 


02047 


96f 




BPM 


f?DE^DM 


02072 





01 


02064 


967 




BPU 


»1 •'5 










9«iM 


*s!?IiVT 


L»AD 


SYSTEM 


0207"^ 





43 


02202 


9<^Q 


PLDSYfl 


RPM 


P i? I Ni T 


02074 


<3-62l24 


97G 




BCI 


1 .LRAD 


02075 


12627062 


9?| 




PCT 
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46 00002 37 

67 20005 38 

46 00020 39 

71 00063 40 

76 00156 41 

54 00002 42 
35 00154 43 
76 00154 44 

56 00003 45 
35 00152 46 

4 76 00147 47 

4 75 00145 48 

3 55 00000 49 
67 20001 50 

35 00143 51 

36 00141 52 
01 37755 53 
17 00025 54 
35 00137 55 

4 75 00135 56 

5 55 00065 57 
46 00014 58 
4 55 00061 59 
46 00014 60 
4 57 00060 61 

55 00127 62 
66 00001 63 
46 00014 64 
55 00055 65 
46 00014 66 

57 00054 67 
55 00121 68 

66 00001 69 

46 00014 70 

4 54 00047 71 

46 00014 72 

4 56 00046 73 



EVAL 



SKA 
BRU 
CLB 
LCY 
CBX 
LDX 
LDA 
SUB 
STA 
LDA 

sue 

STA 
LDA 
LD8 
DPM 
LCY 
STA 
STB 
BRU 
EOR 
STA 
LDB 
DPM 
XA8 
ADD 
XAB 
ADC 
DPM 
RSH 
XAB 
ADD 
XAB 
ADC 
DPM 
RSH 
XAB 
SUB 
XAB 

sue 



SIGN 
EVAL. 4 



LISTl-8,6 

SUM, 4 

2*2 

SUM, 4 

SUM+1#4 

3,2 

SUM+1,4 

ARG-H,4 

ARG.4 

0,2 

1 

ARG+1,4 

ARG,4 

Laep,4 

SIGN 
ARG+1,4 
ARG,4 
C4,4 

C3,4 

03+1,4 

ARG,4 
1 

C2,4 

C2+l,4 

ARG,4 

1 

CI, 4 

Cl-H,4 



IN RANGE 
OUT OF RANGE 
LOCATE SUBINTERVAL 

GET AlKJ ADDRESS 



FORM ARG*AIK1 
SCALE AT 



C4*ARG AT -1 
ADD C3 AT -1 



SCALE AT 
ADD C2 AT 

SCALE AT 1 
ADD CI AT 1 



CO 

o 



CO 

o 

00073 


5 


55 


00113 


74 




DPii 


ARC, 4 


00074 





46 


00014 


75 




XAB 




0007b 


4 


55 


00113 


76 




ADD 


SUM#4 


00076 





46 


00014 


77 




XAB 




00077 


4 


57 


00112 


78 




ADC 


SUM+1*4 


00100 


4 


71 


00104 


79 




LDX 


SHIFT*4 


00101 


2 


66 


00000 


80 




RSH 


0*2 


00102 


4 


55 


00101 


81 




ADD 


CHAR*4 


00103 





40 


20001 


62 




evT 




00104 


4 


01 


00010 


83 




BRU 


eVFLe,4 


00105 





67 


10060 


84 


NeRM 


NeD 


48 


00106 


4 


41 


00001 


65 




BRX 


* + l#4 


00107 


5 


55 


00072 


86 




DPM 


BASEE,4 


00110 





67 


10002 


87 




mD 


2 


00111 





46 


00140 


88 




LDE 




00112 


4 


71 


00073 


89 




LDX 


TX,4 


00113 


4 


51 


37665 


90 


OUT 


BRR 


ALeG.4 


00114 





66 


00001 


91 


eVFLO 


RSH 


1 


00115 





17 


00025 


92 




EDR 


SIGN 


00116 


4 


41 


677t7 


93 




BRX 


NORM, 4 


00117 


4 


01 


Z77tb 


94 




BRU 


NdRM,4 


00120 





43 


00401 


95 


ALARM 


BRM 


ERROR 


00121 


43462712 


96 




BCi 


1*L0G 


00122 





46 


30003 


97 




CLK 




00123 


4 


01 


d77(>7 


98 




BRU 


OUT-1.4 


00124 


4 


00 


00015 


99 


LISTl 


HLT 


A(ll,4 


00125 


4 


00 


00020 


100 




HLT 


A[2],4 


00126 


4 


00 


00023 


101 




HLT 


A13),4 


00127 


4 


00 


00026 


102 




HLT 


A[4]«4 


00130 


4 


00 


00031 


103 




HLT 


A{51,4 


00131 


4 


00 


00034 


104 




HLT 


A(6)*4 


00132 


4 


00 


00037 


105 




HLT 


A171,4 


00133 


4 


00 


00042 


106 




HLT 


Ar8J.4 


00134 


37453004 


107 


LOWfcR 


DEC 


•98780 


00135 


34164004 


108 


C3 


DED 


.4808983469638-1 


00136 


36616047 










00137 


3265C744 


109 


C4 


DED 


-.36067376022228 


00140 


50725342 










00141 


14631460 


110 


All J 


DED 


1.8B1 



ADD CORRECTIVE SUM 



SCALE RESULT 

ADD CHARACTERISTIC 

TEST OVERFLOW 

GO CORRECT 

FORM NEW EXPONENT 



RESTORE X 

RESCALE 
CHANGE SIGN 
INCREMENT EXPONENT 



MULTIPLIER ADDRESSES 



MULTIPLIER TABLE 



00142 


34631463 








0014J 


64227550 


111 




DED 


00144 


15442624 








00145 


36560500 


112 


A(2] 


DED 


00146 


31727024 








00147 


5046C636 


113 




DED 


00150 


13105451 








00151 


70243650 


114 


A[3) 


DED 


00152 


27412172 








00153 


73022367 


115 




DED 


00154 


10711175 








00155 


31463140 


116 


AC4J 


DEO 


00156 


25463146 








00157 


27727700 


117 




DED 


00160 


06732633 








00161 


75341214 


116 


At5] 


DED 


00162 


23656050 








00163 


63625225 


119 




DEO 


00164 


04756234 








00165 


46314624 


120 


A[6J 


DEO 


00166 


22314631 








00167 


55357523 


121 




DED 


00170 


03163621 








00171 


24365600 


122 


A[71 


DED 


00172 


21217270 








00173 


04761244 


123 




DED 


00174 


01615443 








00175 


71666206 


124 


A18J 


DED 


00176 


20324773 








00177 


11113304 


125 




DED 


00200 


00457266 








00201 


76764324 


126 


BASEE 


DED 


00202 


26134413 








00203 


OOOOCOOO 


127 


CHAR 


OCT 


00204 


OOOOCOOO 


126 


SHIFT 


OCT 


00205 


OOOOCOOO 


129 


TX 


OCT 


00206 


OOOOCOOO 


130 


ARG 


ecT 


00207 


OOOOCOOO 


131 




ecT 


00210 


OOOOCOOO 


132 


SUM 


OCT 


CO 

1 











.8479969065581 

1.62B1 

•69599381311B1 

1.47B1 

.5558161550616B1 

1.35B1 

.432959407276181 

1.24B1 

.3103401206121B1 

1.1 581 

.201633861169661 

1.08B1 

.111031312388781 

1.026B1 

.03703073094581 

.6931471805680 



CO 



00211 



oooocooo 


133 




OCT 




00023 


134 


ZERO 


EQU 


19 


00024 


135 


ONE 


EQU 


20 


00025 


136 


SIGN 


EQU 


21 


00027 


137 


ADDR 


EQU 


23 


00074 


138 


EOIND 


BOOL 


74 


00401 


139 


ERROR 


BOOL 


401 


00137 


140 


CI 


EQU 


C4 


00137 


141 


C2 


ECU 


C4 



00000 142 END 



ALARM 


00120 


BASEE 


00201 


EOIND 


00074 


ERROR 


00401 


LlSTl 


00124 


L9WER 


00134 


evFLe 


00114 


SHIFT 


00204 


ADDR 


00027 


All J 


00141 


A12J 


00145 


AC3J 


00151 


AM] 


00155 


A(53 


00161 


At6J 


00165 


A17J 


00171 


A18J 


00175 


ALOG 


00000 


CHAR 


00203 


EVAL 


00047 


Leep 


00023 


N9RM 


00105 


SIGN 


00025 


ZERO 


00023 


ARG 


00206 


ONE 


00024 


OUT 


00113 


SUM 


00210 


CI 


00137 


C2 


00137 


03 


00135 


C4 


00137 


TX 


00205 















CO 

I 



CXI 



CO 

I 



ro 







r 


xo 


1 

2 * 

3 * 


00000 


1 


00" 


00000 


5 


00001 


c 


00 


00000 


6 


00002 


25674712 


7 


00003 


12121212 




0000^ 





00 


00000 


8 


00005 


25674726 


9 


00006 


12121212 




00007 


C 


06 


00000 
00000 


10 
11 


00000 


C 


00 


00000 


12 E 


00001 


4 


37 


00215 


19 


00002 





77 


40074 


14 


00003 


2 


76 


00001 


15 


0000^ 


? 


?5 


00000 


16 


00005 





46 


00122 


17 


00006 


4 


37 


00205 


16 


00007 


5 


55 


00140 


19 


00010 


4 


62 


00203 


20 


00011 


4 


55 


00127 


21 


00012 


4 


71 


00201 


22 


00013 





73 


00026 


23 E 


OOOM 


4 


01 


00110 


24 


00015 


4 


73 


00124 


25 


00016 


4 


01 


00002 


26 


00017 


4 


76 


00122 


27 


00020 





46 


00600 


21 


00021 


4 


35 


00177 


29 


00022 


4 


36 


00175 


30 


00023 





64 


00024 


31 


00024 


2 


67 


00000 


32 


00025 


4 


35 


00167 


33 


00026 


4 


Z6 


00172 


34 


00027 


4 


75 


00170 


35 


00030 


2 


67 


00000 


36 


00031 


C 


02 


20001 


37 



F»RT EXP 

EXPONENTIAL - FLOATING DOUBLE PRECUJION - 920 



EXP 



ETEST 



PZE 

BCI 

PZE 
BCI 

dLK 

ORG 

HLT 

STX 

CAX* 

LOA 

LDB 

STE 

STX 

DPM 

XMA 

ADD 

LDX 

SKG 

BRU 

SKG 

BRU 

LDA 

XXA 

STA 

STB 

MUL 

LSH 

STA 

LDA 

LDB 

LSH 

ROV 



0«1 
EXP 
2.EXP 

EXP 

2.EXPF 







TX.4 

EOIND 

1«2 

0*2 

£•4 

L0GE.4 
E.4 

P2,4 

£•4 

ONES 

RIGHT,4 

P16.4 

**2f4 

P16.4 

ARG*lt4 

ARGt4 

ONE 

0t2 

8,4 

ARGflt4 

ARG«4 

0*2 



EXTRACT EXPONENT 
SAVE 



ADD 2 TO EXPONENT 



SHIFT RIGHT TO FIX 



SHIFT LEFT TO FIX 



FORM NEiU EXPONENT 



GET FRACTION 



00032 


4 


14 


00110 


38 


ETR 


MASK. 4 


00033 


4 


36 


00164 


39 


STB 


Ar*G,4 


00034 


4 


35 


30164 


40 SET STA 


ARG + K4 


00035 


4 


76 


00101 


^1 


LDA 


KU4 


00036 


C 


46 


00002 


42 


CLR 




00037 


4 


35 


30163 


43 


STA 


R + U4 


00040 


4 


36 


30161 


4^ 


STB 


R.4 


00U41 


4 


76 


30100 


45 


LDA 


P16,4 


00042 


4 


35 


30153 


46 


STA 


CNTf?,4 


00043 


4 


71 


30074 


47 


LDX 


K2.4 


00044 


4 


76 


00154 


^8 


LBA 


ARG*1»4 


00045 


4 


75 


001o2 


49 


LDB 


AKG.4 


00046 


6 


73 


3Q102 


SO L9»P SKG 


TABLE-1 .6 


00047 


4 


01 


300i:2 


51 


BRU 


TEST. 4 


00050 


C 


46 


30014 


52 


XAF 




OOOSl 


6 


54 


30U0 


53 


SUB 


TABLE+16.6 


00052 





46 


00014 


54 


XAB 




000S3 


6 


56 


30075 


55 


sue 


TABLE-1. 6 


00054 


4 


35 


30144 


56 


STA 


AficG + 1.4 


00055 


4 


36 


30142 


57 


STB 


ARQ.4 


00056 


4 


76 


30144 


53 


LDA 


R + U4 


000S7 


4 


75 


00142 


5$ 


LDB 


R.4 


00060 


2 


66 


3Q000 


60 


RSH 


0«2 


00061 


C 


46 


30014 


61 


XAB 




0D062 


4 


55 


30137 


62 


ADD 


Rt4 


U0063 


C 


46 


00014 


63 


XAB 




00064 


4 


57 


30136 


64 


ADC 


R + U4 


U0D65 


4 


35 


30135 


6S 


STA 


lt*1.4 


00066 


4 


36 


30133 


66 


STB 


Rt4 


00067 


4 


76 


30131 


67 


LDA 


AR5+1.4 


000/0 


4 


75 


30127 


6a 


LOB 


AHG.4 


00071 


4 


60 


30124 


69 TE 


ST SKR 


CNTR.4 


0Q072 


4 


41 


377o4 


70 


Bf^X 


LOOP. 4 


00073 


5 


55 


OOOoO 


71 


DPW 


01. 4 


00074 


4 


55 


00042 


72 


ADD 


CO. 4 


00076 


b 


55 


00124 


73 


DPM 


R.4 


00076 


4 


62 


00116 


74 


XMA 


S.4 


00077 


4 


55 


30041 


75 


ADD 


P2.4 


00103 

CO 


C 


46 


30400 


76 


CAX 





MAKE AHG POSITIVE 



StT Ai^bwEk T9 1 



SET COUNT T& 17 



CdMPAKE KTH FACTOR 
SUBT KTH FACTUR 



TEST FOR 17TH TIME 
COMPUTE 2**F 

RECALL NEW EXPON 



CO 



00101 


4 


76 


30113 


77 




LDA 


S,4 


U0102 


c 


07 


100U2 


70 




NftD 


2 


00103 


c 


46 


00600 


7^ 




XXA 




00104 


4 


73 


30041 


80 




SKG 


P256,4 


00105 


4 


73 


30041 


81 




SKG 


M257t4 


00106 


4' 


01 


30005 


62 




BRU 


eUT+1.4 


001U7 


C 


46 


306U0 


83 




XXA 




00110 


C 


46 


30140 


84 




LDf- 




00111 


4 


71 


00105 


85 




LDX 


TX,4 


00112 


4 


51 


37666 


86 


9UT 


BRR 


EXP,4 


00113 


C 


72 


30025 


87 




SKA 


SIGN 


OOIH 


4 


01 


30006 


88 




BRU 


UND£R»4 


00U5 


4 


76 


30025 


89 




LDA 


WASK.4 


00116 


4 


75 


30030 


90 




LDB 


M257,4 


00117 


C 


43 


30401 


91 




BRM 


ERR^R 


00120 


25674712 


92 




BCI 


UEXP 


00121 


4 


01 


37770 


93 




BRU 


»UT-1.4 


00122 


C 


46 


30003 


94 


UNUER 


CLR 




00123 


4 


01 


37766 


95 




BRU 


0UT-U4 


00124 


C 


46 


31000 


96 


NIGHT 


CiMA 




00125 


C 


46 


30600 


97 




XXA 




00126 


2 


66 


300U0 


98 




RSH 


0.2 


00127 


4 


36 


30070 


99 




STB 


ARG«4 


00130 


C 


46 


300U2 


100 




CLB 




00131 


C 


72 


30025 


101 




SKA 


SIGN 


00132 


C 


75 


30026 


102 




LOB 


ONES 


00133 


4 


36 


30061 


103 




STB 


S»4 


00134 


4 


14 


30006 


104 




ETR 


MASK,4 


00135 


4 


01 


37677 


105 




BRU 


SET. 4 


0U136 


20000000 


106 


Kl 


DEC 


IBl 


00137 


C0040001 


107 


K2 


ftCT 


40001 


00140 


C0000002 


108 


P2 


DEC 


2 


00141 


C0000020 


109 


P16 


DEC 


16 


00142 


37777777 


110 


^.ASK 


ecT 


37777777 


00143 


77374536 


111 


CI 


DED 


•693147ie0578dl 


00144 


1 : 
* « 


3U56205 










00145 


00000377 


112 


P255 


DEC 


255 


00146 


77777377 


113 


M257 


DEC 


-257 


00147 


62453374 


114 


L9GE 


DED 


1.44269$040889B2 



NrR.«^alUE RESULT 

TEST fOH EXPON UVFLtJ 

0VFLO 

PACK dXPrf^HlHl 

SET tifie If GTR 255 



WAKE POSITIVE 
FIX A(<GU^ENT 



FORM C4l*i EXPONENT 
MAKE AKG POSITIVE 
CONTlr^UE 



00150 
OOlbl 
00152 
00153 
OOlfa^ 
00155 
00156 
00157 
00160 
00161 
00162 
00163 
0016^ 
00165 
00166 
00167 
00170 
00171 
00172 
00173 
0017-1 
00175 
00176 
00177 
00200 
QC201 
00202 
00203 
00204 
00205 
00206 
00207 
00210 
0C211 
00212 
00213 
002M 
00215 
00216 



13425216 

22560015 
12232360 
C5340032 
C2630773 
01327264 
00556362 
C0267745 
C0134U6 
C0056076 
00027044 
C0013423 
0000^612 
C0002705 
C0001342 
00000561 
C0000270 
C0000134 
C7176750 
45715062 
1637Si721 
37262205 
67261667 
64134120 
02667347 
10666317 
0377^333 
62467170 
65427550 
21660S21 
16542177 
50623543 
24602400 
52357324 
25203177 
COOOOOOO 
COOOOOOO 
COOOOOOO 
COOOOOOO 



115 TABLE OCT 


116 


OCT 


11 ;* 


OCT 


iia 


OCT 


119 


OCT 


120 


OCT 


121 


OCT 


122 


OCT 


123 


OCT 


124 


OCT 


125 


OCT 


126 


OCT 


127 


OCT 


126 


OCT 


129 


OCT 


130 


OCT 


131 


OCT 


132 


OCT 


133 


OCT 


134 


OCT 


135 


OCT 


136 


OCT 


137 


OCT 


13d 


OCT 


139 


OCT 


no 


OCT 


141 


OCT 


142 


OCT 


143 


OCT 


144 


OCT 


145 


OCT 


146 


OCT 


147 


OCT 


14g 


OCT 


149 E 


OCT 


ISO S 


OCT 


151 CNTR OCT 


152 TX 


OCT 



22560015 

12232360 

534003? 

2630773 

1327264 

556362 

267745 

134116 

56076 

27044 

13423 

5612 

2705 

1342 

561 

270 

134 

07176750 

45715062 

16375721 

37262205 

67261667 

64134120 

02667347 

10666317 

03776033 

62467170 

65427550 

21660521 

16542177 

50623343 

24602400 

52357324 

25203177 



LOG TABLE — MSH 



LOG TABLE--L8H 



CO 

I 



Oi 



CO 

1 












O^ 












00217 


couooooo 


163 


AR6 


OCT 




00223 


cooooooo 


154 




OCT 




00221 


cooooooo 


15S 


R 


OCT 




00222 


cooooooo 


154 




OCT 






00023 


157 


ZEKO 


EQU 


19 




0002^ 


158 


ONE 


EQU 


20 




00025 


159 


SIGN 


EQU 


21 




00026 


160 


ONES 


EUU 


22 




00027 


161 


ADDR 


EQU 


23 




00074 


162 


EOIND 


BOOL 


74 




00401 


163 


ERROR 


BOOL 


401 




00136 


164 


CO 


EQU 


Kl 




00000 


165 




END 





COIND 

TABLE 

LffGE 

ONES 

ZER& 

OUT 

CI 

TX 



C0074 
C0151 
C0i4f 
C0026 
C0023 
C0U2 
COM3 
C0216 



EftRRR 

UNDEi« 

LOOP 

P255 

ARG 

P16 

Kl 

e 



00-101 
00122 
00046 
00M5 
00217 
OOMl 
00136 
00213 



ETEST 

ADDR 

M257 

SIGN 

EXP 

SET 

K2 

K 



00013 
00027 
00M6 
0002S 
00000 
00034 
00137 
00221 



RIGHT 

CNTR 

MAoK 

TEoT 

ONE 

CO 

P2 

S 



00124 
U0213 
00142 
00071 
0002^ 
00136 
00140 
Q0214 



CO 

I 



VI 











1 


F&ftT 












2 * 














3 * 

4 * 
S 


SINE AND 


COdlNE - 


OOOQO 


1 


00 


00000 


PZE 


0.1 


QQOUl 


c 


00 


00000 


6 


PZE. 


COb 


00002 


23^66212 


7 


BCI 


2.C0S 


00003 


12121212 








UJOU-*! 


C 


00 


00000 


6 


FIE 


C»S 


00005 


23^66226 


9 


BCI 


2,C0SF 


00C06 


12121212 








00007 





00 


00021 


10 


PZE 


SIN 


00010 


6231^512 


11 


BCI 


2,SIN 


00011 


1212) 


1212 








00012 





00 


00021 


12 


PZE 


SIN 


00013 


6232^526 


13 


BCI 


2.SINF 


OOOM 


12121212 








00015 


C 


06 


00000 


14 


BLK 











00000 


15 


ORG 





00000 


C 


00 


00000 


16 C»S HLT 





UOOOl 


^ 


37 


00306 


17 


STX 


TX,4 


00002 


c 


77 


40074 


18 


EAX* 


EOIND 


00003 


2 


76 


00001 


19 


LOA 


U2 


0000*1 


2 


75 
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1 
















00423 





35 


00577 


40 


D5A STA FLAG 






00424 





37 


02700 


41 


STX XREG 











04 


00424 
00571 


42 


B5 FOl) *-l 






00425 


43 


PACH FLSPOP 






00426 





04 


00576 


44 


PACH B6 












00571 


45 


RftPG 571 






00571 





35 


00012 


46 


FLSP(^P STA TEf^PA 






00572 





76 


00026 


47 


LDA ONFS 






00573 






01 
35 


00423 
00012 


46 
49 


BRl) nsA 






00574 


FLAPf^P STA TFMPA 






00575 





46 


00001 


50 


CLA 






00576 





01 


00423 
00576 


51 

52 


BRU T)5A 








B6 EOU *-l 






00577 





04 


01014 


53 


PACH XSTPCtP 






00600 





04 


01026 
01014 


54 
55 


PACH B7 








BORG 1014 














56 


* XST P^P (104) FIX AND STORE 






01014 







43 

35 


01031 

40000 


57 

58 


XSTPOP BRM FXBNDA 


FIX B AND A 




01015 


STA* 






01016 





51 


00000 


59 


BRR 











43 


01075 


60 
61 


* FST POP (105) FLOAT AND STORE 






01017 


FSTPOP BR^^ FLOATA 


FLOAT A 




01020 





01 


00107 


62 


BRU STHPOP 


STORE DOUBLE POP 









46 


00102 


63 
64 


* NEW PARTS OF FIX B .ANH _A_ ._. 

031 RCH 102 






01021 


CLEAR EXPONENT 




01022 


2 


67 


00000 


65 


LSH 0*2 






01023 






01 
55 


01046 
00024 


66 
67 


PRU 032 






01024 


Q32A ADD ONF 


ADD 1 TO TRUNCATED 




01025 





71 


00061 


68 


Q33 LDX FXBAXR' 


NEGATIVE INTEGER 




01026 





51 


01031 
01026 


69 
70 


BRR FXBNDA 


EXIT 






B7 EOU *-l 






01027 





04 


01031 


71 


PACH FXBNDA 






01030 





04 


01051 
01031 


72 
73 


PACH „ B8 

BOPG 1031 




















74 


* PATCH TO FIX FIXED FIX 











00 


00000 


75 
76 


* FIX B AND A 
FXBNDA HLT 






01031 






01032 





37 


00061 


77 


STX FXBAXR 


SAVE X 




01033 





52 


02672 


78 


SKR EMASK 


S)<^IP Al'-l^JE^^ 





01034 
01035 
01036 
01037 
01040 
0104J 
01042 
01043 
01044 
01045 
01046 
01047 
01050 
01051 

0105? 
01053 



on 15 

01116 
01117 
01120 
0112! 
01122 
01123 
01124 

01125 
01126 
01127 

01130 
01131 
01132 

01133 
01134 

I 
CO 



46 
35 
74 
01 
46 
36 
66 
46 
16 
46 
52 
53 
01 
01 



04 
04 



36 
35 
76 
35 
76 
43 
41 
51 



30003 
02714 
02663 
01021 
00102 
00005 
00000 
00014 
00005 
00014 
00026 
02714 
01025 
01024 
01051 
01115 
P1146 
01115 



00035 
00036 
00000 
00063 
40000 
01075 
00035 
00063 



43 01133 

1 35 00055 
51 00063 

43 01133 

1 45 00055 
51 00063 

00 00000 

36 00035 



79 

80 

81 

62 

83 

84 

85 

86 

^7 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

11 1 

112 

113 

114 

115 

116 

117 



Q32 



B8 



* PAT 

* FTM 
FTMPOP 



* FTS 

FTSP9P 



* Fin 
FTOPftP 



* FTS 

FTsepr 



CLP 
STA 

SKO 
BRU 
RON 
STP 
RSH 
XAR 
MRG 
XAP 
SKR 
SKN 
PRU 
BRU 
ECU 
PATH 
PACH 
BORG 
CH Tf9 
P»P ( 
STR 
STA 
LDA 
STA 
LDA* 
BRM 
FLM 
BRR 

Pep ( 

RRM 
FLS 
BRR 

PQP ( 
BRM 
FLT 
BRR 

9R FT 
HLT 
STR 



FIXTP2 

eCT27^ 

Q31 

102 

FIXTMP 

0.2 

FIXTMP 



OTHERWISE INTEGER = 

RECORD SIGN 

COMPUTE SH I FT ANP DIRECTION 

EXPON > 22 

EXPON < 23 SO CLEAR EXPON 

SAVE F_RACTION_„ 



MERGE FRACTION 



ONES 
FIXTP2 
Q33 
Q32A 
*-l 

FTMPOP 
B9 

1115 
SPEED UP FTS AND FTD POPS 
136) FLOAT THEN MULTIPLY 
PARTI 
PART2 


EXIT 


FLOATA 
PARTI 
EXIT 
132) FLOAT THEN SUBTRACT 

FTSORD 

FLTFMP 

EXIT 
142) FLOAT THEN DIVIDE 

FTSORD 

FLTEMP 

EXIT 
D (COMMON PART) 

PARTI 



SKIP IF FRACTION 
CHECK SIGN 
DO NOT ADD 
DO ADD ONE 



ONE 



37 CYCLES 



FLOAT A 



FTS OR FTD„ 
SUBTRACT 



FTS PR 
DIVIDE 



FTD 



I 

1.1 3 6 
01137 
(11140 
0114 1 
0114? 
0114 3 
01144 

01 M^S 
0114 6 



01 147 
01150 
01 1S1 
01152 
01153 
01154 
01155 
01 156 



35 
76 
35 
76 
43 
35 
36 
76 
75 
51 



05 
05 
05 
05 
05 
05 
05 
05 



00036 
00000 
00063 
40000 
01075 
00056 
00055 
00036 
00035 
01133 
on 46 



01075 
00107 
00024 
00061 
02714 
02663 
00005 
00035 
00036 
00063 
00055 
02672 
00012 
00026 
00577 
02700 
00001 
00001 
00076 
00157 
00250 

00341 



118 
1 19 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 

142 
143 
144 
145 
146 
147 
143 
149 
1 50 
151 
152 
153 
154 
155 
156 



B9 

* 

FLD 

FLS 

FLM 

FLOATA 

STDPPP 

RNE 

FXBAVP 

FIXTP2 

f^CT27 

FTXTMF 

PARTI 

PART2 

FXIT 

FLTFMP 

EMA5K 

TEMPA 

ftNES 

FLAG 

XREG 



ST A 

LTIA 

STA 

LDA* 

BRM 

STA 

STP 

in A 

LDP 
BRP 
EQU 

(?pr 
apr 

RPPL 
B19PL 
BftftL 
PftPL 
Bftl^L 
RPPL 
PftftL 
BOf^L 
BPftL 
BPPL 
Bftl^L 
B»ftL 

B©PL 
BftftL 
BOi^L 
PNOH 

PNOH 
PNTH 
PMOH 
PNOH 
PNOH 
PNOH 



PART2 



EXIT 



FLOATA 

FLTEMP+1 

FLTEMP 

PART2 

PAPTl 

FTSORD 

*-l 

14500000 

13500000 

14100000 

1075 

107 

24 

61 

2714 

2663 

5 

35 

36 

63 

55 

2672 

12 

26 

577 

27C0 

1 

1 

L76 

L157 

L250 

L277 

L341 

L2717 



PUNOH 1 T9 1 
76 TO 157 
250 Td 277 
341 T9 2717 



J 1 5 7 


07 


nonoo 


157 




STPP 




01160 


01 


nopoi 


156 




RRI! 


t 






00030 


1«^9 


L30 


GftPL 


30 






00076 


160 


L76 


BftPL 


76 






001 57 


161 


L157 


Bft'^L 


157 






00?50 


162 


L250 


BPf^L 


250 






0OP77 


163 


L277 


Bft^L 


277 






00341 


164 


L341 


B9fiL 


341 






? 7 1 7 


165 


L2717 


BPftL 


2717 






0?7?0 


166 


L2720 


BPf^L 


27 2 








167 


PACH 


QPV 


00400000 








168 


PNCM 


OP^ 


00500000 








169 


PTAP 


opn 


00600000 








170 


ST9P 


©pr 


007000O0 






00000 


171 




FNfi 








4^ 
FIXTMP 


onnn5 


FTXTP2 


02714 


FLAPftP 


00574 


FLdATA 


01075 


FLS^^P 


00571 


FLTFMP 


00055 


FSTPPP 


01017 


FTDPftP 


01 130 


FTMPftP 


01115 


FT^^PRf 


01133 


FTSPPP 


01 125 


FX9AXP 


00061 


FXRNDA 


01031 


STDPftP 


00107 


XSTPI^P 


01014 


EMASK 


02672 


L2717 


0?717 


1.2720 


02720 


9CT27 


02663 


PA^^Tl 


00035 


OART? 


00036 


TFMPA 


0001 2 


EXIT 


00063 


Fl AG 


00577 


L 157 


00157 


L25r 


00250 


L277 


0^277 


L341 


00341 


^NES 


00026 


PACH 


0116 1 


PNCH 


01 161 


PTAP 


01161 


Q3?A 


01024 


STftP 


01161 


XPEG 


02700 


n5A 


00423 


FLO 


01147 


FI.M 


01147 


FLS 


01 147 


L30 


00030 


i.7 6 


00076 


f^NF 


00024 


Q31 


01021 


Q32 


01046 


Q33 


01025 


Al 


00104 


A2 


00131 


A3 


00135 


91 


00105 


R2 


00132 


S3 


0ni36 


84 


00142 


P5 


00424 


B6 


00576 


B7 


01026 


g8 


01051 


R9 


01146 















00200 
00201 



00202 
00203 

01031 
01032 
01033 
0103^ 
01035 
01036 
01037 
010-^0 
010-11 
01042 
010*13 
0104-1 
01045 
01046 
01047 
01060 
01051 



01052 

\1 



04 
04 

00 
37 
52 
46 
35 
74 
01 
66 
Oi 
46 
67 
52 
63 

o: 

55 

n 

51 



04 



03000 
C 06 03000 
06 30030 



01031 
01051 
01031 
00000 
00061 
02672 
30003 
02714 
32603 
01042 
00000 
01044 
00102 
00000 
02673 
02714 
01050 
30024 
00061 
01031 
OlObl 

02376 
02402 
02407 
02715 
02377 



I 
2 
3 
4 
5 
5 
7 

a 

9 
10 

11 

12 
13 
14 
15 

16 
17 

16 
19 
20 
21 
22 
23 
24 
23 
26 
27 
28 
24 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



CiJRRECTI&NS T(J 
T& r^AKE 

MAY 1, 1964 



* 
* 

* 

* 

* 

* 

L3000 BOOL 3000 
PTAP L3000 
PTAP L30 

*FIX SUBROUTINE. FIXES 

*17 LOCATIONS 
PACH 



FORTRAN 

veksion 



RU.^-TIME 
G 



(F) 



FXSNDA 



S31 



$32 



S33 



LXfcJNDA 



PACH 

BORG 

HLT 

STX 

SKB 

CLR 

STA 

SKD 

BRU 

RSH 

BRU 

RCH 

LSH 

SKB 

SKN 

BRU 

ADD 

LDX 

BRR 

EQU 



* PATCH COMMA 



i&97 
$98 
$99A 
S97A 



BOOL 
BOOL 
BOOL 
BOOL 
PACH 



FXBNDA 

LXBNOA 

1031 



FXBAXf^ 

EMASK 

FIXTP2 

0CT27 

$31 

0*2 

S32 

102 

0*2 

MLONEia 

FIXTP2 

$33 

ONE 

FX8AXR 

FXBNDA 

*-l 

PROBLEPfl 

2376 

2402 

2407 

2715 

$97*1 



FLOATING A.d AT 23- 27 CYCLES AVERAGE 



SAVE A 

SKIPS IF Q LE EXP LE 63 

OTHER^IoE INT£G£R=0 

RECORU SIGN 

COHPUTE SHIFT AND DIf<tCTI(JN 

EXP Gc 23 

EXP LT 23 



CLEAR EXPONENT 



SKIP 
ADD 1 



EXIT 



IF FRACTIONAL 
TO TRUNCATED 



POKTIOi^sO 
NEGATIVE INTEGER 



IN RUNTIME MARCH 4, 1964 



4^ 

1 

00 

01063 


C 


0^ 


02401 


40 




PACH 


$97 + 3 








023/7 


41 




BORG 


$97*1 


02377 


C 


53 


02677 


42 




SKN 


NOCOMA 


oa-^uo 


c 


o: 


02407 


43 




BRU 


$99A 


02^01 


c 


01 


02715 


44 




BRU 


$97A 


Ocj^oa 





04 


02715 


45 




PACH 


$97A 


02*^03 


c 


04 


02717 


46 




PACH 


$97A*2 








02715 


47 




BORG 


$97A 


02715 


c 


50 


000ii4 


48 




SKE 


ONE 


02716 


c 


01 


02402 


49 




BRU 


$98 


02717 


c 


o: 


32376 


50 




BRU 


$97 


02720 


c 


05 


OOOUl 


51 




PNCH 


I 


02721 


c 


05 


OOOOl 


52 




PNCH 


I 


02722 


c 


05 


00076 


53 




PNCH 


L76 


02723 


c 


05 


00157 


54 




PNCH 


L157 


0272-^ 


c 


05 


00250 


55 




PNCH 


L250 


Q272S 


c 


05 


00277 


56 




PNCH 


L277 


02726 


c 


05 


00341 


57 




PNCH 


L341 


02727 


c 


05 


02717 


5d 




PNCH 


$97A+2 


02730 


c 


07 


00000 


59 




STOP 




02731 


c 


01 


00001 


60 




BRU 


I 








02672 


61 


EMASK 


B&OU 


2672 








02662 


62 


tXQ78 


BOOL 


2662 








02714 


63 


FIXTP2 


BOOL 


2714 








00005 


64 


FIXTMP 


BOOL 


5 








00061 


65 


FX8AXR 


BOOL 


61 








00076 


66 


L76 ' 


600L 


76 








001^7 


67 


L157 


BOOL 


157 








00250 


68 


L250 


BOOL 


250 








002/7 


69 


L277 


BOOL 


277 








00341 


70 


L341 


BOOL 


341 








026/3 


71 


MLONES 


BOOL 


2673 








02661 


72 


NEGBEX 


BOOL 


2661 








02677 


73 


NOCOMA 


BOOL 


2677 








02663 


74 


&CT27 


BOOL 


2663 








00024 


75 


ONE 


BOOL 


24 








00025 


76 


ISIGN 


BOOL 


25 








02664 


77 


SMALNG 


BOOL 


2664 








00030 


78 


L30 


BOOL 


30 



NO COHMA FLAG 



PUNCH 1 TO 1 ; 

/6 TO 157 

250 TO 277 

3U TO 2717 



00000 



79 

80 

ei 

62 
83 



PACH 
PNCH 
PTAP 
ST&P 



OPD 
OPD 
OPD 
OPD 
END 



OO'IOOOOO 
OOSOOQOQ 
00600000 
00700000 



^ 
^o 



o 

LXdNOA 
SMALNG 
OOlk? ' 
L311 

S97A 

L30 
$32 



C0005 
C1051 

C2663 
C0311 
027 15_ 
C0030 
0104^ 



FIXTP2 
MLONES 
£MASK_ 
1157 " ~ 
PACH 
i99A 



L76 
$33 



027H 
02673 
02672 

dolsy 

02732 

_02j^0.7 

00076 

01050 



FXBAXR 
iN£GB£X 
EXB7jd 
l250 
PNCH 

3_l G N 

ONE 
$97 



00061 
02661 
02662 
00250 
02732 
00025 



0002^ 
02376 



FXdNOA U1031 
NOCOMA 02677 
L3_000^_^ J3_000 
L277 00277 
PTAP 02732 
ST&P U2732 



^31 

$9a 



01042 
02^02 



>;■ t^ >T T _T n i>^ J 

n 1 t ?. f-' " r f ■» 



I K i.i (V T I i1 E. 

I <^ o y. 



■Ub/. 



pu.-v.ch; 



PJf ! 
A iv D 





:i J I 


1-, 1.' ;. J 1 


L Cl D U 3 o 3 




UJLV6 


ivj'.;6 


^■:'O0DC Jl 


o U :1 7 7 


;- ;' u n ? '.! 



on 


00 





01 


01212 


on 


01 


n 


01 


0121< 


00 


02 


n 


01 


0010? 


no 


03 





01 


00103 


00 


0< 





01 


OlOM 


00 


OR 





01 


01023 


00 


06 





01 


00106 


00 


07 





01 


01373 


00 


10 





01 


01 151 


on 


1 1 





01 


01 167 


on 


12 


n 


01 


01316 


00 


13 


n 


01 


013M 


00 


\< 





01 


01237 


00 


15 





01 


01234 


00 


1« 





01 


01355 


00 


17 





01 


0125? 


00 


20 





01 


01332 


00 


21 


n 


01 


01334 


00 


22 





01 


01072 


00 


23 





01 


oiooo 


00 


24 


n 


01 


00124 


00 


25 





01 


01362 


00 


2f> 





01 


01 105 


00 


27 





01 


00127 


00 


30 





01 


00130 


00 


31 





01 


00423 


00 


32 





01 


01 1 15 


00 


33 





01 


00133 


00 


34 





01 


00134 


00 


35 





01 


00571 


00 


36 





01 


01 127 


00 


37 





01 


00137 



10 


* 




I 1 


* 




u 




BS-!? 


1 J 




SRU 


1-^ 




b»f 




fPD\E 


DEC 


1«; 


riy,Gbll 


9CT 


16 


* 




17 


* 


P f^ 


18 


* 




1 5 




BRU 


90 




BRU 


5| 




BRU 


'2 




PRU 


'3 




BRU 


24 




BRU 


?«. 




BRU 


?6 




BRU 


?7 




BRU 


?B 




BRU 


29 




BRU 


30 




BRU 


31 




BRU 


32 




BRU 


33 




BRU 


341 




BRU 


35 




BRU 


36 




BRU 


37 




BRU 


38 




BRU 


39 




BRU 


40 




BRU 


41 




BRU 


42 




PRU 


43 




BRU 


44 




BRU 


45 




BRU 


46 




BRU 


47 




BRU 


4S 




BRU 


40 




BI?U 


^n 




PRU 



r»UT r-ur 
■i( P M £.' h 'i 
L *^T 



1 



I M C (= K 5 >: 1 

F7i Le.'Jin- 



S Y :-> I M 
i 76 

I 

s: a n u j r o 
r^ a k p I* f-- E T>. 



XSDP9P 
F9DP9P 



XSTP9P 

FSTPPP 

* 

STDP9P 

D9XP0P 

D&FP6P 

AGXPfiP 

AG^PPP 

XFAPPP 

FFAPPP 

XNAPBP 

FNAPBP 

XI9PSP 

FI9PBP 

LTFPBP 

LTXP9P 

* 

LDPPSP 

FTAP9P 



FLAF9P 
FTSP9P 



FLSPPP 
FTI»«P9P 



100 
101 
102 

103 
IC4 

105 
106 
107 
I 10 
1 I I 
1 12 
1 13 
1 |4 
1 15 
1 16 
1 17 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
I 36 
137 



T i i , 7 . T £> IS?, 

ft JHk >■ 26 ; 



bf^Tf-l IMTIALUt 



D P i 



T«[.; eiT 



(^ T 6 h i. 



FIXED 

FL9AT 

(SK« 

(SKE 

FIX A 

FL9AT 

(XMA 

ST9Rt: 

De Fi 

D9 FL 

ASSIG 

ASSIG 

FIXED 

FL8AT 

FIXED 

FL9AT 

FIXED 

FLBAT 

LSAD 

L9AD 

(MUL 

L<?AD 

FLBAT 

(PIV 

(5KB 

FL&AT 

FL9AT 

(ADM 

(CAX 

FL&AT 

FL&AT 

(CXA 



SET U 
IMG SE 
-910) 
-910) 
ND STB 

AND 5 

- 910) 
D9UBL 

XtD 

9ATING 
MEC se 
NED G9 

FIRST 
IMG FI 

NEXT 
ING ME 

INPUT 
ING IN 
THEN F 
THEN F 

- 910) 
D9UBLE 

THEN 

- 910) 

- 910) 
ING AD 

THEN 

- 910) 

- 910) 
ING SU 

THEN 

- 910) 



P DUMi^Y 

T UP DUMMY 



PE 
T9RE 

E PRECISI9N 



T9 FIXED 

T8 FL6ATING 

ARGUMENT 
PST ARGUMENT 
ARGUMENT 
XT ARGUMENT 
/9UTPUT 
PUT/9UTPUT 
L9AT 
IX 

PRECI5I9N 
ADD 



"SUBTRACT 



PTRACT 
•MULTIPLY 



6 

; 

H 
ii 

iQ 
U 
Ik 
13 

IS 
l^ 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
49 
49 
50 



4>. 










NJ 










ooMn 





01 


oioos 


^1 


OOMI 





01 


00600 


«5? 


00M2 





01 


01 137 


^3 


00143 





01 


00143 


84 


00144 


n 


01 


oini 1 


SCi 


OHMS 





01 
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41 


00730 


33? 


8RX 


FUCOM 
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00730 


3'«3 
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FLCOM 
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37 


02700 


334 


FLDPSP STX 


X<?FG 


00650 





35 


00012 


3'«5 


STA 


TEMP4 


00651 





46 


00200 


336 


CXA 
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37 
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STX 
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F8KCE ♦ 
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AH * MH 
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N9T -1 9R 
SEPARATE -I F99M 
0, EXIT 
-1 , RIGHT NORMALIZE 



EXTEND EX* «A,R) 



( AH*AL)/( MH*ML)= 

( ( AH+AL)/MH)*( 1-ML/MH) 

(0*R/MH)*( |-ML/MH)s 

Q*(R-Q*ML)/»^K 



eVERFLSUI IFF DIVIS9R sO 
SINGLE PRECISION OUPTIENTsQ 



REMAINDER s 



303 
304 
305 
306 
307 
308 
309 
310 
31 1 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
3 40 
341 
342 
343 
344 
345 
346 
347 
349 
349 
350 
351 
352 



00^72 





46 


00200 


353 




CXA 




noft?! 





*6 


00122 


3^< 




STE 




00674 





46 


00600 


355 




XXft 




00675 


n 


46 


01000 


356 




CMA 




00676 





55 


02630 


357 




ADD 


TW8 


00677 





63 


00010 


358 




ADM 


ZE 


00700 





46 


10012 


350 




BAC 




00701 


n 


66 


20002 


360 




PCY 


2 


0070? 





46 


01000 


3*1 




CNA 




0070:^ 





64 


00021 


362 




HUL 


ZM 


00704 





S5 


00012 


363 




ADD 


TEMPA 


00705 


2 


65 


00001 


364 




DIV 


1 .2 


00706 





64 


02630 


365 




MUL 


TUB 


00707 





55 


00021 


366 




ADD 


ZM 


00710 





71 


00010 


367 




LDX 


ZE 


0071 1 





72 


00026 


36B 




SKA 


BNES 


00712 





01 


00730 


369 




BPU 


FLC<»M 


00713 





01 


00737 


370 




BPU 


FLMX 


007M 





37 


02700 


371 


FLNP9P 


STX 


XREG 


00715 





52 


02673 


37? 




SKB 


ML»^'ES 


00716 





01 


00741 


373 




BPU 


FLNA 


00717 





46 


01000 


374 




CMA 




00720 





50 


00023 


375 




?KE 


ZERP 


00721 





72 


02675 


376 




SKA 


OOIS 


0072? 


n 


51 


OOOGO 


377 




BPR 





00723 


n 


46 


00122 


37P 




STE 




00724 





50 


00025 


37g 




5KE 


>«INIUS 


00725 


D 


01 


00730 


3Rn 




BPU 


FLCPM 


00726 





66 


20001 


3flt 




ROY 


1 


00727 





41 


00731 


392 




BPX 
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419 
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HLT 
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424 
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426 
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EXIT 
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40063 
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BRR 
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00024 
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01013 





51 
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43S 
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430 


*XST 


potP 




010H 
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37 


00062 
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PTX 
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01015 
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LDX 





01016 





37 


00063 


442 






STX 


EXIT 


01017 
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01031 
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BRM 


FXBNDA 


01020 
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00062 


444 






LDX 


REG 


01021 
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40063 


44S 






STA* 


EXIT 


01022 
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00063 


44*, 






BPR 


EXIT 










447 


*FST 


PBP 




01023 
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44P 


FSTP6 
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LDB 
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440 






STB 
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01075 
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BRM 


FL9ATA 


01027 
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40063 


45? 






STD* 


EXIT 



2 
1 
ZM 



4002 
XM 
ZM 

TW9 

ZM 

XM 



ZM 

XM 

XREG 

MINUS 




$2 



FIX BANDA 



RT SHIFTER 23 







FIX BANDA 



FLBAT A 



403 
404 
405 
406 
407 
408 
409 
410 
41 1 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
4-4 
445 
446 
447 
448 
<44Q 

450 
451 
452 



01030 
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51 


00063 


4S3 




BRR 


EXIT 










454 


♦FIX BANDA 




01031 





00 


00000 


455 


FXBNDA 


HLT 




01032 
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37 


00061 


456 




STX 


FXBAXR 


01033 





35 


02714 


457 
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FIXTP2 


01034 





71 


00000 


458 




LDX 





01035 





72 


00025 


450 




SKA 


SIGN 


01036 
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47 


00000 


460 




FLN 




01037 
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37 


00000 


461 




STX 





01040 
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52 


02661 


4«3 




SKB 


NE6BEX 


01041 





01 


01057 


463 




BRU 


S31 


01042 





52 


02662 


464 




SKB 


EX878 


01043 





01 


01057 


465 




BPU 


S3t 


01044 





46 


00122 


466 




STE 




01045 





35 


00005 


467 




STA 


FIXTMP 


01046 





46 


00200 


468 
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01047 





46 
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01050 
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02663 


470 
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02664 


471 




SKG 
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472 




BRU 
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00400 


473 




CAX 




01054 
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FIXTHP 


01055 
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00000 


475 
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01065 
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BPU 
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46 


30003 


477 
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CLR 




01060 





01 


01065 


478 




BRU 
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01061 





46 


01000 


470 


S32 


CNA 




01062 





46 


00400 


480 




CAX 




01063 





76 
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LDA 


FIXTUP 


01064 
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67 
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482 




LSH 
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01065 
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02714 
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$33 
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FIXTP2 


01066 





01 


01070 


484 




BPU 


$34 


01067 





46 


01000 


485 




CNA 




01070 





71 


00061 
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S34 


LDX 


FXBAXR 


01071 





51 


01031 


487 




BRR 


FXBNDA 
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*LTF P6P 
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76 


40000 


489 
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LDA* 
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FLSATA 
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*FL8AT 


BPR 
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FLBATA 


HLT 




01076 





37 


00061 


494 




STX 


FLAXRG 
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67 


10027 
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00140 
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01 104 
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FTAP9P 
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899 


?52 


PKI? 


FSCAMX 





553 


n 


43 


021 10 


830 




B9M 


GMCIC 





554 





50 


02613 


83! 




SKE 


DLR 





555 


n 


01 


01557 


832 




BffU 


$53 





55fi 





76 


00352 


B-i? 




LDA 


B L A ^' If 


1 


5b7 


n 


43 


02144 


834 


$53 


BRW 


STSFCH 





560 


n 


01 


01546 


8''5 




BPU 


DL»IN 












836 


♦DLP 9UT 







561 





43 


02053 


837 


DLRSUT 


B(?H 


GNFCIB 





562 





50 


02613 


838 




5KE 


DLR 





563 





01 


01565 


8*^9 




Bf?U 


S5* 





564 


n 


01 


0M26' 


84n 




BRU 


NXCHAR 





565 





43 


02151 


84| 


$54 


BffW 


ST8ICH 





566 





01 


01561 


842 
843 


*X l^ 


Bf?U 


DLRRUT 





567 





43 


021 10 


8*4 


XIN 


BRM 


GMICIC 





570 





01 


01537 


845 
84*; 


*X 9UT 


BPU 


CMTNS 





571 


n 


76 


00352 


847 


X9UT 


LDA 


BLAv< 





572 





43 


02151 


84g 




BPM 


ST9ICH 





573 


n 


01 


01537 


849 
850 


*H IN 


BPU 


CNtTTWS 


n 


574 


n 


43 


021 10 


85| 


HIN 


BRM 


GMICIC 





575 





43 


02144 


852 




BRM 


ST8FCH 





576 


n 


01 


01537 


853 
854 


*H BUT 


BRU 


CNTTNS 





577 





43 


02053 


855 


HSUT 


BRM 


GNFCIB 





600 





43 


0215) 


856 




BRM 


ST9ICH 





60! 


n 


01 


01537 


857 

858 


*A 9UT 


BRU 


C.MTTNS 


n 


602 


p 


53 


00054 


8^0 


ABUT 


5KN 


PIFEND 





603 





01 


02477 


8«n 




BRU 


LASTLN 





60< 





76 


00342 


861 




LDA 


WDTH 





605 





73 


00053 


869 




5KG 


e9R4 





606 


n 


01 


01610 


863 




BRU 


S55 





607 


n 


76 


00053 


8«4I 




LDA 


89R4 





610 


n 


35 


00063 


865 


S55 


STA 


9UTP5Z 





61 1 





76 


00342 


8*6 




LDA 


WDTH 





612 





55 


00047 


867 




ADD 


RgCANX 





613 





35 


00064 


869 




STA 


(i-gCMXF 





6)4 


1 


25 


00344 


86Q 




LDP 


INWRD) 





615 





67 


20022 


870 




LCY 


)8 





616 


1 


07 


003*7 


871 




STD 


CENPL) 





617 


1 


25 


00347 


872 


«56 


LDP 


CENRL1 



GET NEXT FSR CHAR INCL ^LNK 

DLR 

S) 

NEXT CHAR 

F SCAN X 

GET NEXT 18 CHAR INCL C9MMA 

DLR 

$2 

BLANK 

ST9 F9R CHAR 

DLR IN 

GET NEXT F8R CHAR INCL BLNK 

DLR 

S) 

NEXT CHAR 

STB 19 CHAR 

DLR 9UT 

GET NEXT 19 CHAR INCL C9MMA 
CBUNT TEST N9 SET 

BLANK 

STB 19 CHAR 

C&UNT TEST WB SET 

GET NEXT 19 CHAR INCL CBMMA 
STB F9R CHAP 
C8UNT TEST N8 SET 

GET NEXT FBR CHAR iNCL SLNK 
STB 19 CHAR 
CBUNT TEST N9 SET 

PLUS IF END LIST 

LAST LINE BUT 

WDTH 

8 IF DBUBLE ELSE 4 

S) 

8 IF DBUBLE ELSE 4 

9UTPUT FIELD SIZE 

WDTH 

R SCAN X 

R SCAN X LlwiT FIELD 

IMPUT W9RD I 

22 

CENTRAL ) 

CENTRAL ) 



823 
824 
825 
826 
827 
828 
929 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
941 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 






CO 

o 

f,20 





67 


20006 


873 




LCY 


6 





1621 


1 


07 


00347 


874 




STD 


CENRLI 





1622 


n 


^3 


02167 


875 




BRM 


STIF8K 





1623 





53 


00346 


87A 




PKN 


ENDFFL 


n 


624 


n 


01 


01617 


877 




ei?u 


$56 





625 





01 


02503 


878 
87g 


*A IN 


PPU 


RETMPR 





626 





53 


00054 


enn 


MN 


SKN 


PIFEND 





627 





01 


02503 


8«il 




BRU 


RETMPR 





630 





76 


00053 


8n? 




LDA 


89R4 





631 





35 


00004 


8fl3 




STA 


AINT»1 





632 





73 


00342 


694 




SKG 


WDTH 





633 





01 


01635 


6fl5 




BPU 


$57 





634 





76 


003^2 


8<>6 




LDA 


WDTH 





635 


n 


35 


00005 


897 


«57 


STA 


AINT«»2 





636 


Q 


76 


0034? 


809 




LDA 


WDTH 





637 


D 


54 


00053 


699 




SUB 


8PR4 





*^0 





72 


00025 


8<9n 




SKA 


SIG^BT 





64t 


c 


46 


00001 


891 




CLA 




n 


642 





63 


00047 


89? 




APM 


RSCANX 





643 





01 


01660 


893 




BRU 


S60 





644 





76 


00352 


89- 


sse 


LDA 


BLAKiK 





645 





60 


00005 


695 




SKI? 


4INT92 





646 


p 


-•3 


021 10 


89« 




BI?M 


GNICIC 





647 





50 


00355 


897 




SKE 


CARPET 





650 


c 


01 


01652 


898 




BWU 


$59 





651 





76 


00352 


699 




LDA 


BLA^K 





662 





35 


00006 


9no 


$59 


STA 


AINTB3 





653 


1 


25 


00347 


901 




LDP 


CENPLl 





6b4 





14 


0263? 


90? 




ETR 


CH234 





655 


n 


16 


00006 


903 




MRG 


AINTP3 





656 


n 


67 


20006 


9r»4 




LCY 


6 





657 


1 


07 


00347 


905 




STD 


CENRLI 





660 





60 


00004 


9n^ 


S60 


SKR 


AINTP1 





661 





01 


01644 


907 




BRU 


sse 





662 





71 


00356 


908 




LDX 


MARGAD 





663 


2 


36 


00000 


909 




«STB 


0.2 


n 


664 





46 


00004 


910 




CAB 







1665 





76 


02635 


91 1 




LDA 


FIVE 





666 


n 


73 


00053 


912 




SKG 


89R* 





667 





01 


01671 


913 




RRU 


S61 





670 





01 


02503 


914 




BRU 


RETMBR 





671 





46 


00010 


915 


S6I 


CBA 







1672 


2 


62 


00000 


916 




X^^A 


0.? 





673 


2 


35 


00001 


917 




STA 


1.? 





674 





01 


02503 


918 
919 


*EFG 


BRU 
IN 


RETKBR 





675 





53 


00054 


9?0 


fiFGIN 


SKN 


PIFEND 





676 





01 


02503 


921 




PRU 


RETMPR 





677 


n 


43 


02274 


9?? 




BRM 


C8NSCN 



CENTRAL I 

ST9 19 CHAR IF 8K 

END FIELD FLAG 

%? 

RETURN TB MAIN PRBG 



PLUS 

RETU 

e IF 

A IN 

WDTH 

SI 

WDTH 

A IN 

WDTH 

8 IF 

SIGN 



IF END LIST 
RN TB MAIN PRBG 
D9UBLE ELSE 4 
TEKP 1 



TEMP 2 

D9UBLE ELSE 4 
BIT 



R 

$3 

BL 

A 

GE 

CA 

f2 

BL 

A 

CE 

CH 

A 

6 

CE 

A 

54 

M 





SCAN X 

ANK 

IN TEMP 2 

T NEXT IB CHAR INCL C9MMA 

R RETURN 

ANK 

IN TEMP 3 
NTRAL I 
AR234 MASK 
IN TEMP 3 

NTRAL 1 
IN TEMP 1 

ARG ADR 



FIVE 

8 IF D9UBLE ELSE 4 

S5 

RETURN TB MAIN PRBG 




I 
RETURN T9 MAIN PRBG 



PLUS IF END LIST 
RETURN TB MAIM PRBG 
C9NST SCAN 



873 

874 
875 
676 
877 

S7B 
679 
880 
S8I 
882 
883 
864 
885 
886 
667 
668 
869 
690 
691 
892 
693 
694 
695 
896 
697 
696 
699 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
91 1 
912 
913 

915 
916 
917 

916 
91 9 
920 
921 
922 



n 


700 





43 


40237 


99? 




BRM* 


FLCH<L 





701 


n 


71 


00356 


924 




LDX 


MARGAD 





70? 


1 


25 


00347 


995 




LDP 


CENPLI 





703 


1 


07 


40356 


926 




?TD* 


MARGAD 





70'<» 





01 


02503 


997 

9?8 


*I IN 


Bi?U 


RETMBR 





705 


n 


53 


00054 


9?Q 


UN 


SKN 


PIPEWD 





70fi 





01 


02503 


930 




BPU 


RETMPP 





707 





43 


02274 


931 




9RM 


CSNCCN 





710 





4 3 


40237 


932 




ei?M* 


FLCMKL 





71 1 





43 


02531 


933 




BPM 


FIX 


n 


712 





71 


00356 


934 




LDX 


MARPAD 





713 


? 


35 


00000 


935 




STA 


0,2 





7M 





01 


02503 


936 
937 


*I 8UT 


BRU 


RETMPP 





71S 


n 


53 


00064 


9'?8 


I9UT 


5KN 


PIFF-MD 


n 


71^ 





01 


02477 


930 




BPU 


LASTLN 





717 


n 


76 


00344 


940 




LDA 


INWPDI 





720 


n 


4 3 


40267 


94] 




BRM* 


FL&ATL 





721 


1 


07 


00344 


942 




RTD 


iNWPni 


n 


722 





76 


00026 


943 




LDA 


MINU5I 





723 





35 


00066 


944 
945 


*F SUT 


STA 


DECPNT 





724 





53 


00054 


946 


FSUT 


SKN 


PIFEWD 





725 


n 


01 


02477 


947 




BRU 


LASTLN 





72« 


n 


43 


40240 


94a 




BRM* 


C?)NV3W 





727 


n 


43 


-0236 


94C) 




BPM* 


eCDLWK 





730 





01 


02503 


950 
95| 


*E BUT 


BRU 


RETKPP 





731 





53 


00054 


959 


E9UT 


SKN 


PIFEND 


a 


73? 


n 


01 


02477 


953 




BRU 


LASTLN 





733 


n 


43 


40240 


954 




BRM* 


CftNV3W 


n 


734 


n 


76 


00251 


955 




LDA 


F9UP 





735 


n 


35 


00343 


956 




STA 


4IFE9T 





736 





76 


00347 


957 




LDA 


CENPLI 





737 





16 


00350 


958 




MRG 


CENPL2 





740 





50 


00023 


959 




SKE 


ZERR 





741 


n 


01 


01743 


960 




BRU 


S62 





742 





01 


01746 


9«| 




BRU 


S63 





743 





76 


00341 


962 


S62 


LDA 


CHAPIS 





744 





54 


00067 


963 




SUB 


PEXP 





745 





55 


00024 


964 




ADD 


9NE 





746 





35 


02704 


9*5 


S63 


STA 


EEXP 


n 


747 





76 


00026 


966 




LDA 


MINUPJ 





750 


n 


35 


00341 


967 




STA 


CHAPIS 





751 





43 


40236 


968 




BRM* 


BCDLNK 





752 





76 


00251 


969 




LDA 


F9U» 





753 





35 


00063 


970 




STA 


9UTF=!7 


n 


754 


n 


63 


00064 


97| 




ADM 


RSCWXF 





755 


r 


76 


02605 


972 




LDA 


E 



FL C9NST MAKER LINK 

M ARC ADR 

CENTRAL I 

M ARG ADR 

RETUROJ T9 MAIN PR9G 

PLUS IF END LIST 

RETURN TB MAIN PRBG 

C5NST SCAN 

FL CBNST MAKER LINK 

FIX 

M ARG AOR 



RETURN T9 MAIN PR8G 

PLUS IF END LIST 
LAST LINE BUT 
INPUT W9RD I 
FLSAT SPR9G LINK 
INPUT W9RD 1 
MINUS BNE 
DEC PNT 

PLUS IF END LIST 
LAST LINE 9UT 
C9NV TB 3 W9RDS LINK 
BIN T9 BCD C9NV LINK 
RETURN TB MAIN PRBG 



PLUS IF END LIST 


LAST LINE BUT 


CBNV TB 3 WORDS LINK 


F9UR 


4 IF E BUT 


CENTRAL 1 


CENTRAL 2 


ZER8 


S5 


S6 


CHARACTERISTIC 


P EXP 


9NE 


E EXP 


MINUS BNE 


CHARACTERISTIC 


BIN T9 BCD CBNV LINK 


F9UR 


9UTPUT FIELD SIZE 


R SCAN X LIMIT FIELD 


E 



923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
93S 
937 
93B 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 



01756 





43 


02167 


973 


BRM 


STiFftK 


01757 





76 


00352 


974 


LDA 


8 L A M I' 


0J760 





53 


02704 


97S 


SKN 


EEyp 


01761 


p 


01 


01766 


976 


BRU 


S64 


01762 


n 


76 


02704 


977 


LDA 


F.EXP 


01763 





46 


oiooo 


978 


CNA 




01764 





35 


02704 


979 


STA 


EEXP 


01765 


V 


76 


00026 


9«0 


LDA 


MINUS 


01766 





43 


02167 


981 S54 B9M 


STIF9K 


01767 


n 


76 


0270^ 


9fl2 


LDA 


EEXP 


01770 





73 


02633 


9«i3 


SKG 


NINE 


01771 





01 


02000 


9»4 


8RU 


$65 


01772 





73 


02634 


9flS 


SKG 


DEC9Q 


01773 





01 


02002 


986 


B»U 


S66 


01774 


n 


43 


00401 


997 


BRM 


EPR9R 


01775 


462567*7 


968 


8CI 


I.8EXP 


01776 





46 


00001 


989 


CLA 




01777 





01 


02002 


990 


BRU 


$66 


02000 


n 


46 


00001 


99| S65 CLA 




02001 


n 


01 


02007 


992 


BRU 


$67 


02002 


n 


46 


20005 


993 S66 ABC 




02003 





67 


00001 


994 


LSH 


1 


02004 





65 


02636 


995 


DIV 


TEN 


02005 





36 


02704 


996 


STB 


EEXP 


02006 


n 


67 


00022 


907 


LSH 


18 


02007 


n 


43 


02167 


998 $67 BRM 


STIF9K 


02010 


n 


76 


OP704 


999 


LDA 


EEXP 


0201 1 





67 


00022 


lonn 


LSH 


18 


02012 





43 


02167 


1001 


BRM 


ST1F8K 


02013 





01 


02503 


1002 


BRU 


RETMPR 



ST8 19 CHAR IF SK 

BLANK 

E EXP 

$t 

E EXP 

E EXP 

MINUS 

STB 18 CHAR IF B< 

E EXP 

NINE 

$2 

DEC 99 

$3 



$3 






$4 






1 
TEN 






E EXP 






22 






ST8 19 


CHAR IF 


8K 


E EXP 






22 






STB IB 


CHAR IF 


9K 


RETURN 


TB MAIN 


PR9G 



973 
974 
975 
976 
977 
979 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 











003 






PAGE 












0^4 


*G£T 


MEXT CHAR 


050M 





00 


00000 


005 


GNCHAR 


HLT 




0?0I5 





37 


02702 


006 






STX 


SAVEX 


02016 





76 


40065 


007 






LDA* 


SCANX 


02017 


n 


73 


42703 


008 






?KG* 


SCAMXL 


02020 





01 


02024 


009 






B9U 


$68 


02021 





76 


00255 


01 






LDA 


ENDFLD 


0202? 





35 


00021 


01 1 






STA 


CHAR 


02023 





51 


02014 


012 






BRR 


GNCHAR 


02024 


p 


66 


20002 


on 


S68 




RCY 


2 


0202S 


n 


46 


00401 


014 






AXC 




020Z6 





67 


20002 


015 






LCY 


2 


02027 





64 


00351 


016 






MUL 


THREE 


02030 





76 


42701 


017 






LDA* 


TAGST 


02031 





46 


00020 


Ol!? 






CBX 




02032 


2 


67 


00000 


01 q 






LSH 


0.2 


02033 





14 


02631 


020 






ETR 


CHIMSK 


02034 





50 


02656 


05| 






?KE 


IBMPLN 


02035 





01 


02037 


02? 






BRU 


$69 


02036 





76 


00352 


023 






LDA 


BLAN'K 


02037 





35 


00021 


094 


$69 




STA 


CHAP 


020^0 


n 


61 


40065 


O'fi 






^IN* 


SCANX 


020*^1 





71 


02702 


02*, 






LDX 


SAVEX 


02012 





50 


00255 


027 






S<E 


CARPET 


02043 





51 


02014 


09q 






BPR 


GNCHAR 


020«^4 





60 


40065 


D5Q 






5KR* 


SCAMX 


02045 





51 


02014 


030 






BRR 


GNCHAR 










0-*! 


*GET 


NEXT F9R 


CHAR 


020-^6 





00 


00000 


032 


GNF!?CH 


HLT 




02047 





43 


02053 


03T 


$70 




BRM 


GNFCIB 


02050 


n 


50 


00352 


O'*^ 






SKE 


BLANK 


02051 





51 


02046 


035 






BPR 


GNF9CH 


02052 





01 


02047 


036 






BRU 


S70 










037 


♦ GET 


NEXT F81* 


CHAR INCL BLNK 


02053 





00 


00000 


038 


GNFCI8 


HLT 




02054 





46 


00002 


03Q 






CLB 




02055 





43 


02507 


04n 






BRM 


INITSC 


02056 





43 


02014 


04| 






BRM 


GNCHAR 


02057 





51 


02053 


042 






BPR 


GNFCIB 










043 


*GET 


NEXT IB ( 


:HAR INCL BLNK 


02060 


n 


00 


00000 


04^ 


GNICI9 


HLT 




02061 





76 


00255 


045 


S7I 




LDA 


ENDFLD 


02062 





35 


00021 


04fi 






5TA 


CHAR 


02063 





53 


02677 


047 






SKN 


nscbma 


02064 





51 


02060 


048 






BRR 


GNICIB 


02065 





43 


021 10 


04Q 






BRM 


GNICIC 


02066 





50 


02602 


D50 






SKE 


C9MMA 


02067 





51 


02060 


051 






BRR 


GNICIB 


02070 





4<S 


00001 


052 






CLA 





SAVE X 

SCAN X 

SCAN X LIMIT 

SI 

END FIELD CHAR 

CHAR 

GET NEXT CHAR 

2 

401 

2 

THREE 

TAGGED START ADR 



CHARI MASK 

IBM BLANK 

S2 

BLANK 

CHAR 

SCAN X 

SAVE X 

CAR RETURN 

GET NEXT CHAR 

SCAN X 

GET NEXT CHAR 



GET NEXT F9P CHAR INCL BLNK 

BLANK 

GET NEXT FSP CHAR 



INITIALIZE 'CANS 

GET NEXT CHAR 

GET NEXT FSR CHAR INCL BLNK 



END FIELD CHAR 

CHAR 

N9 C9MMA FLAG 

GET NEXT 19 CHAR INCL BLNK 

GET NEXT 19 CHAR INCL C9MMA 

C9MMA 

GET NEXT 19 CHAR INCL BLNK 



1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
101 1 
1012 
1013 
1014 
1015 
1016 
1017 

loie 

1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 



0P07I 





35 
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